TMSCTEAUT – Solicitar Status do Documento ao TSS

Ponto de entrada responsável por solicitar o Status do Documento ao TSS. Está localizado na função WsCteMnt() na rotina SPEDNFE.PRX

#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

#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

Return nil

Sobre
Últimos Posts

Siga na rede

Fernando Bueno

Consultor em FBSOLUTIONS

Sou consultor na área de implantação de sistemas ERP, com experiência na análise e implantação de projetos de sistemas, configurando a estrutura do software, capacitando usuários-chaves, ministrando treinamentos e workshops.

Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.

Siga-me no Linked In

Siga na rede

Últimos posts por Fernando Bueno (exibir todos)

Os métodos mais usados para Prospecção de Clientes - 9 de outubro de 2024
Os 10 dos melhores CRMs de vendas disponíveis no mercado - 7 de outubro de 2024
Como um CRM de vendas pode ajudar sua indústria - 5 de outubro de 2024