Cross Segmentos - Backoffice Protheus - SIGAFAT - ExecAuto do processo de venda futura com pagamento adiantado (tpNFDebito = 06)

Tempo aproximado para leitura: 00:02:00 min

Dúvida
Qual exemplo de ExecAuto do processo de venda futura com pagamento adiantado (tpNFDebito = 06)?

Ambiente
Cross Segmentos - Backoffice Protheus - SIGAFAT - Todas versões

Solução

#INCLUDE "TBICONN.CH"
#INCLUDE "TOTVS.CH"
 
//------------------------------------------------------------------------------
/*/{Protheus.doc} MyVincNFND
    Execauto para vínculo das notas de débito com documento de saída de remessa.
 
    @author     SQUAD CRM / FAT
    @since      Julho/2026 
    @version    P12.1.2510
/*/
//------------------------------------------------------------------------------
User Function MyVincNFND()
 
    Local lRet      := .F.
    Local cDocNF    := ""
    Local cSerieNF  := ""
    Local cCliente  := ""
    Local cLoja     := ""
    Local aUpdDKN   := {}
    Local lAuto     := .T.
 
    PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "FAT" TABLES "SC5","SC6","SA1","SA2","SB1","SB2","SF4"
 
    cDocNF := "000000215"
    cSerieNF := "FAT"
    cCliente := "FAT125"
    cLoja := "01"
 
    aAdd(aUpdDKN, {1,"000000217","FAT","FAT125","01"})
    aAdd(aUpdDKN, {1,"000000218","FAT","FAT125","01"})
     
    lRet := MSExecAuto({|a, b, c, d, e , f| VincNFND(a, b, c, d, e , f)}, cDocNF, cSerieNF, cCliente, cLoja, aUpdDKN, lAuto)
 
    If lRet
        MsgAlert("Vinculo da Nota de Débito com a Nota de Remessa realizada com sucesso.")
    Else
        MsgAlert("Vinculo da Nota de Débito com a Nota de Remessa não efetuado.")
    EndIf
 
Return lRet

Exclusão:

#INCLUDE "TBICONN.CH"
#INCLUDE "TOTVS.CH"
 
//------------------------------------------------------------------------------
/*/{Protheus.doc} MyVincNFND
    Execauto para vínculo das notas de débito com documento de saída de remessa.
 
    @author     SQUAD CRM / FAT
    @since      Julho/2026 
    @version    P12.1.2510
/*/
//------------------------------------------------------------------------------
User Function MyVincNFND()
 
    Local lRet      := .F.
    Local cDocNF    := ""
    Local cSerieNF  := ""
    Local cCliente  := ""
    Local cLoja     := ""
    Local aUpdDKN   := {}
    Local lAuto     := .T.
 
    PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "FAT" TABLES "SC5","SC6","SA1","SA2","SB1","SB2","SF4"
 
    cDocNF := "000000215"
    cSerieNF := "FAT"
    cCliente := "FAT125"
    cLoja := "01"
 
    aAdd(aUpdDKN, {2,"000000217","FAT","FAT125","01"})
     
    lRet := MSExecAuto({|a, b, c, d, e , f| VincNFND(a, b, c, d, e , f)}, cDocNF, cSerieNF, cCliente, cLoja, aUpdDKN, lAuto)
 
    If lRet
        MsgAlert("Desvinculo da Nota de Débito com a Nota de Remessa realizada com sucesso.")
    Else
        MsgAlert("Desvinculo da Nota de Débito com a Nota de Remessa não efetuado.")
    EndIf
 
Return lRet

Saiba mais:

Notas de Débito (MATA600) - ExecAuto