Ejecución de Automatizados. - Mediante el programa inicial FWMYTESTRUNNER, cargue la suite deseada.
- Ejecute la suite correspondiente (FINA847).
- Todos los casos deben de salir correctos (Carita Feliz Verde).
Ejecución Manual. - En el programa de Orden de Pago Mod. II (FINA847) que se encuentra en el módulo SIGAFIN (Actualizaciones | Proceso Mo II) debe de generar la OP para la factura previamente dada de alta.
Ejecución de Rutina Automática. Ejemplo de execauto de la FINA847: #Include "PROTHEUS.CH" User Function MyFINA847() Local oError := ErrorBlock({|e|ChecErro(e)}) //en caso de error Local cRetorno := "" Local nRetorno := 0 Local aCab := {} Local aLinha := {} Local aItens := {} Local aInfDoc := {} Local aDocPag := {} Local cForne := "FIN087" Local cBanco := "005" Local cAgencia := "00005" Local cConta := "0000000005" Local cTipoPg := "EF" Local cNumTit := "DOC087541" Local dFechaFP := cToD("17/04/2019") Private lMsErroAuto := .F.
AAdd( aCab, { "F1_FORNECE" , cForne , Nil }) AAdd( aCab, { "F1_LOJA" , "01" , Nil }) AAdd( aCab, { "F1_NATUREZ" , "000001" , Nil }) AAdd( aCab, { "F1_PAGO" , "1" , Nil }) AAdd( aCab, { "F1_SOLFUN" , "" , Nil }) AAdd( aCab, { "F1_VALBRUT" , "1000" , Nil }) AAdd( aCab, { "F1_CF" , "112" , Nil }) AAdd( aCab, { "F1_ZNGEO" , "" , Nil }) AAdd( aCab, { "F1_GRPSUS" , "" , Nil }) AAdd( aCab, { "F1_EST" ,"BA" , Nil}) AAdd( aCab, { "F1_NUMOP" , "" , Nil }) AAdd( aCab, { "F1_OPCELT" , "1" , Nil }) AAdd( aCab, { "F1_RECNO" , "01" , Nil })
aInfDoc := {} AAdd( aInfDoc, { "Filial" , "D MG 01 " , Nil } ) AAdd( aInfDoc, { "Proveedor" , "FIN087" , Nil } ) AAdd( aInfDoc, { "Loja" , "01" , Nil } ) AAdd( aInfDoc, { "Prefijo" , "A " , Nil } ) AAdd( aInfDoc, { "Numero" , "000000000000" , Nil } ) AAdd( aInfDoc, { "Parcela" , " " , Nil } ) AAdd( aInfDoc, { "Tipo" , "NF " , Nil } ) AAdd( aInfDoc, { "NumRec" , 34 , Nil } ) AAdd( aInfDoc, { "valInfor" , 1000 , Nil } ) AAdd( aInfDoc, { "Moneda" , 1 , Nil } ) AAdd( aInfDoc, { "Juros" , 0 , Nil } ) AAdd( aInfDoc, { "Multa" , 0 , Nil } ) AAdd( aInfDoc, { "Descuento" , 0 , Nil } ) AAdd(aDocPag,aInfDoc)
aLinha := {} AAdd( aLinha, { "Tipo" , cTipoPg , Nil } ) AAdd( aLinha, { "Prefijo" , cTipoPg , Nil } ) AAdd( aLinha, { "NumDoc" , cNumTit , Nil } ) AAdd( aLinha, { "Parcela" , " " , Nil } ) AAdd( aLinha, { "Valor" , 1000.00 , Nil } ) AAdd( aLinha, { "Moneda" , 1 , Nil } ) AAdd( aLinha, { "FecEmi" , dFechaFP , Nil } ) AAdd( aLinha, { "FecVenc" , dFechaFP , Nil } ) AAdd( aLinha, { "Banco", cBanco , Nil } ) AAdd( aLinha, { "Agencia", cAgencia , Nil } ) AAdd( aLinha, { "Conta" , cConta , Nil } ) AAdd( aLinha, { "TalonCH" , " " , Nil } ) AAdd( aLinha, { "TipTalon" , " " , Nil } ) AAdd( aItens, aLinha)
lMsErroAuto := .F. MSExecAuto({|x, y, z, a| FINA847(x, y, z, a)}, aCab, aDocPag, aItens, 3)
If lMsErroAuto MsgStop("Error de grabacion del registro.") MostraErro() Else MsgAlert('NF incluida con exito.') EndIf
Return
|