VIDEO WINDEV AULA 1364 ORDEM COMPRA EXCLUI PARTE 9
PARTE 1 ORDEM COMPRA 001 WINDEV AULA 1354
TABELA NAO/MES ORDEM COMPRA 2 WINDEV AULA 1355
SQL TABELA ANO MES - ORDEM COMPRA 3 WINDEV AULA 1356
SQL TABELA ORDEM COMPRA 4 WINDEV AULA 1358
TABELA ORDEM COMPRA 5 WINDEV AULA 1359
SQL/TABELA/DATA ORDEM COMPRA 6 WINDEV AULA 1360
ITEN ORDEM COMPRA 7 WINDEV AULA 1361
TABELA ORDEM COMPRA 8 WINDEV AULA 1362
EXCLUIR ORDEM COMPRA 9 WINDEV AULA 1364
DUPLICAR ORDEM DE COMPRA - 10 - AULA 1365
// Elimina - ordem e itens ordem
IF YesNo("DESEJA ELIMINAR ORDEM COMPRA?") THEN
HReadSeekFirst(ordem_compra,id_ordem_compra,TABLE_RELACAO_ORDEM_COMPRA.COL_Id_ordem_compra)
IF HFound(ordem_compra) THEN
// CASO ELE EXISTA
FOR EACH ordem_compra_item WHERE "Id_ordem_compra="+ordem_compra.id_ordem_compra
// VOU VARRER A TABELA DE ORDEM DE COMPRA ITENS
HDelete(ordem_compra_item)
END
// FINALIZANDO VAMOS EXCLUIR A ORDEM
HDelete(ordem_compra)
// PRONTO
// AGORA VOU ELIMINAR A LINHA DA TABELA
TableDelete(TABLE_RELACAO_ORDEM_COMPRA)
QRY_ITEM_ORDEM_COMPRA_LER.parametro_id_ordem_compra=TABLE_RELACAO_ORDEM_COMPRA.COL_Id_ordem_compra
TableDisplay(TABLE_ITEM_ORDEM_COMPRA_LER,taReExecuteQuery)
// ESTOU ATUALIZANDO OS ITENS DA TABELA
END
END
Nenhum comentário:
Postar um comentário