💡 Se gostou deste conteúdo, compartilhe com quem precisa
Olá! Tudo bem?
Segue um exemplo do P.E. TM140GRV, que é executado após Incluir/Alterar/Excluir uma determinada viagem de transferência, na rotina TMSA140.PRW.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 |
#include "rwmake.ch" #include "topconn.ch" User Function TM140GRV() Local aArea := GetArea() Local nOpcx := PARAMIXB[1] Local cQuery := "" If nOpcx == 3 .OR. nOpcx == 4 c_Query := "SELECT * FROM " + RetSQLName("DUD") + " " c_Query += "WHERE D_E_L_E_T_ = ' ' " c_Query += "AND DUD_VIAGEM = '" + AllTrim(DTQ->DTQ_VIAGEM) + "' " c_Query += "AND DUD_FILORI = '" + AllTrim(DTQ->DTQ_FILORI) + "' " TcQuery c_Query NEW ALIAS "QRY" DbSelectArea("QRY") DbGotop() While !Eof() cQuery := "UPDATE " + RetSQLName("DT6") + " SET DT6_IDRCTE = ' ' " cQuery += "WHERE D_E_L_E_T_ = ' ' " cQuery += "AND DT6_FILDOC = '" + AllTrim(QRY->DUD_FILDOC) + "' " cQuery += "AND DT6_DOC = '" + AllTrim(QRY->DUD_DOC) + "' " cQuery += "AND DT6_SERIE = '" + AllTrim(QRY->DUD_SERIE) + "' " cQuery += "AND DT6_RETCTE NOT LIKE '%Autorizado%' " TCSQLEXEC(cQuery) dbSkip() EndDo QRY->( dbCloseArea() ) Endif RestArea(aArea) Return |
