User Function U_M467N()
Local aCab := {}
Local aLinha := {}
Local aItens := {}
Local cDoc := "" // String con el número de documento
Local nX := 0
Local nItems := 1
Private lMsErroAuto := .F. // Cuando se utiliza el ExecAuto , la inicialización correcta de la variable Private lMsErrorAuto es el valor .F.,
// si se produce un error durante el ExecAuto, el sistema cambia automáticamente el valor de la variable
// lMsErrorAuto a .T. y muestra el error.
cDoc := FWInputBox("Número de Factura", "") // Informar número de documento, ejemplo: "000000000001"
Alert('Entro en la mata467n')
AAdd( aCab, { "F2_CLIENTE", "022185" , Nil } )
AAdd( aCab, { "F2_LOJA" , "01" , Nil } )
AAdd( aCab, { "F2_SERIE" , "A" , Nil } )
AAdd( aCab, { "F2_DOC" , cDoc , 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", "A" , 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 } )
AAdd( aCab, { "F2_PTOEMIS", "001" , Nil } )
AAdd( aCab, { "F2_ESTABL", "002" , Nil } )
AAdd( aCab, { "F2_FLFTEX", 0 , Nil } )
For nX := 1 to nItems
aLinha := {}
AAdd( aLinha, { "D2_COD" , "000001" , Nil } )
AAdd( aLinha, { "D2_QUANT" , 1 , Nil } )
AAdd( aLinha, { "D2_PRCVEN" , 100 , Nil } )
AAdd( aLinha, { "D2_TOTAL" , 100 , Nil } )
AAdd( aLinha, { "D2_TES" , "501" , Nil } )
AAdd( aLinha, { "D2_UM" , "PC" , Nil } )
AAdd( aLinha, { "D2_ESPECIE", "NF" , Nil } )
AAdd( aItens, aLinha)
Next
MSExecAuto( { |x,y,z| Mata467n(x,y,z) }, aCab, aItens, 3 ) //3-Incluir, 5-Borrar y 6-Anular
If lMsErroAuto
MsgStop("Error al grabar.")
MostraErro()
Else
Alert('Grabado con éxito.')
EndIf
Return |
