⭐ Gostou do tema? Salve este artigo para consultar depois
Ponto de entrada responsável por solicitar o Status do Documento ao TSS. Está localizado na função WsCteMnt() na rotina SPEDNFE.PRX
|
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 |
#include "rwmake.ch" #include "topconn.ch" User Function TMSCTEAUT() Local cFilDoc := PARAMIXB[1] Local cNumDoc := PARAMIXB[2] Local cSerie := PARAMIXB[3] Local cSitCTE := PARAMIXB[4] If cSitCTE == StrZero(2,Len(DT6->DT6_SITCTE)) //-- Autorizado o uso do Cte. If !Empty(cFilDoc) .AND. !Empty(cNumDoc) .AND. !Empty(cSerie) Alert ("Pto de Entrada: TMSCTEAUT") cQuery := "UPDATE " + RetSQLName("DT6") + " SET DT6_IDRCTE = ' ' " cQuery += "WHERE D_E_L_E_T_ = ' ' " cQuery += "AND DT6_FILDOC = '" + AllTrim(_DUD->DUD_FILDOC) + "' " cQuery += "AND DT6_DOC = '" + AllTrim(_DUD->DUD_DOC) + "' " cQuery += "AND DT6_SERIE = '" + AllTrim(_DUD->DUD_SERIE) + "' " TCSQLEXEC(cQuery) EndIf EndIf Return nil |
