Histórico da Página
...
Al intentar crear una Factura de Entrada que genera certificado de retención gestada por el MSExecAuto de la MATA101N, muestra mensaje de Generación de certificado, se solicita que cuando sea usada como rutina automática no envíe al usuario la pregunta ni el impreso del certificado.
03. SOLUCIÓN
En la rutina Certificados de Retención (FISA015) dentro de la función fGrvCrt() se incluye validación para cuando se gesta Factura de Entrada con certificado de retención de manera automática, no muestre pregunta, impresión, ni confirmación de generación del certificado.
...
04. INFORMACIÓN ADICIONAL
Ejemplo de Execauto ExecAuto a rutina MATA102NMATA101N:
Bloco de código | ||||
---|---|---|---|---|
| ||||
#INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH" User Function xMta101n() Local aCab := {} // Array con datos de encabezado Local aLin := {} // Array con datos de ítem Local aItem := {} // Array de ítems Local cDoc := "" // String con el número de documento Private lMsErroAuto := .F. // Control de ejecución de rutina cDoc := FWInputBox("Número de Factura", "") // Informar número de documento, ejemplo: "000000000001" // Encabezado AADD( aCab, { "F1_FILIAL" , xFilial("SF1") , Nil }) AAdd( aCab, { "F1_FORNECE" , "P17021P17348" , Nil }) AAdd( aCab, { "F1_LOJA" , "01" , Nil }) AAdd( aCab, { "F1_SERIE" , "LRRNFE" , Nil }) AAdd( aCab, { "F1_DOC" , cDoc , Nil }) AAdd( aCab, { "F1_NATUREZ" , "EFECTIVO" , Nil }) // Modalidad AAdd( aCab, { "F1_TIPO" , "N" , Nil }) AAdd( aCab, { "F1_FORMUL" , "N" , Nil }) AAdd( aCab, { "F1_TIPODOC" , "10" , Nil }) AAdd( aCab, { "F1_ESPECIE" , "NF " , Nil }) AAdd( aCab, { "F1_EMISSAO" , dDataBase , Nil }) AAdd( aCab, { "F1_DTDIGIT" , dDataBase , Nil }) AAdd( aCab, { "F1_MOEDA" , 1 , Nil }) AAdd( aCab, { "F1_TXMOEDA" , 1 , Nil }) AAdd( aCab, { "F1_COND" , "001" , Nil }) AAdd( aCab, { "F1_EST" , "10" , Nil }) // Items AADD( aLin, { "D1_FILIAL" , xFilial("SD1") , Nil }) AADD( aLin, { "D1_ITEM" , "0001" , Nil }) AAdd( aLin, { "D1_COD" , "D16887D17348" , Nil }) AAdd( aLin, { "D1_UM" , "UN" , Nil }) AAdd( aLin, { "D1_QUANT" , 1 , Nil }) AAdd( aLin, { "D1_VUNIT" , 1000 , Nil }) AAdd( aLin, { "D1_TOTAL" , 1000 , Nil }) AAdd( aLin, { "D1_TES" , "077" , Nil }) AAdd( aLin, { "D1_CF" , "1102" , Nil }) AAdd( aItem, aLin) // Ejecuta Rutina Automática MSExecAuto( { |x,y| MATA101N(x,y) }, aCab, aItem, 3 ) If lMsErroAuto MsgStop("Error en la grabación de la factura!") MostraErro() Else msgInfo("Factura de Entrada incluida: " + cDoc, "MsExecAuto MATA101N") EndIf Return |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas