Tiempo aproximado de lectura 00:05:00 min
Duda
¿Cómo generar Facturas de Venta de forma autómatica sin utilizar la interfaz estandar del sistema?
Entorno
Cross Segmentos - TOTVS Backoffice (Linea Protheus) - MI - Facturación (SIGAFAT) - A partir de la versión 12
Solución
La rutina MATA467N de Facturación Manual, cuenta con un MsExecAuto o rutina automatica que permite detonar la generación de Facturas de Venta a traves de alguna personalización, siempre que se alimente la información necesaria, a continuación un ejemplo de esto:
User Function MyMt467n()
Local aCab := {}
Local aLinha := {}
Local aItens := {}
Private lMsErroAuto := .T.
AAdd( aCab, { "F2_CLIENTE", "000001" , Nil } )
AAdd( aCab, { "F2_LOJA" , "01" , Nil } )
AAdd( aCab, { "F2_SERIE" , "UNI" , Nil } )
AAdd( aCab, { "F2_DOC" , "00000000000000000003" , Nil } )
AAdd( aCab, { "F2_COND" , "001" , Nil } )
AAdd( aCab, { "F2_LOJA" , "01" , Nil } )
AAdd( aCab, { "F2_EMISSAO", dDataBase , Nil } )
AAdd( aCab, { "F2_EST" , "01" , Nil } )
AAdd( aCab, { "F2_TIPO" , "N" , Nil } )
AAdd( aCab, { "F2_ESPECIE", "NF " , Nil } )
AAdd( aCab, { "F2_PREFIXO", "UNI" , Nil } )
AAdd( aCab, { "F2_MOEDA" , 1 , Nil } )
AAdd( aCab, { "F2_TXMOEDA", 1 , Nil } )
AAdd( aCab, { "F2_FORMUL" , "S" , Nil } )
AAdd( aCab, { "F2_TIPODOC", "01" , Nil } )
aLinha := {}
AAdd( aLinha, { "D2_COD" , "000001" , Nil } )
AAdd( aLinha, { "D2_QUANT" , 10 , Nil } )
AAdd( aLinha, { "D2_PRCVEN" , 100 , Nil } )
AAdd( aLinha, { "D2_TOTAL" , 1000 , Nil } )
AAdd( aLinha, { "D2_TES" , "501" , Nil } )
AAdd( aLinha, { "D2_UM" , "UN" , Nil } )
AAdd( aLinha, { "D2_ESPECIE", "NF " , Nil } )
AAdd( aItens, aLinha)
MSExecAuto( { |x,y,z| Mata467n(x,y,z) }, aCab, aItens, 3 ) //3-Incluir, 5-Excluir e 6-Cancelar
If lMsErroAuto
MsgStop("Erro na gravação.")
MostraErro()
Else
MsgAlert('Incluido com sucesso.')
EndIf
Return
0 Comentarios