User Function MyMt462n()
Local aCab := {}
Local aLinha := {}
Local aItens := {}
Private lMsErroAuto := .F.
AAdd( aCab, { "F2_CLIENTE", "000001", Nil } )
AAdd( aCab, { "F2_LOJA", "01", Nil } )
AAdd( aCab, { "F2_PV", "0001", Nil } ) "Este campo solo es necesario para el país de Argentina"
AAdd( aCab, { "F2_SERIE", "R ", Nil } )
AAdd( aCab, { "F2_DOC", "000100000129", Nil } )
AAdd( aCab, { "F2_EMISSAO", dDataBase, Nil } )
AAdd( aCab, { "F2_EST", "BA", Nil } )
AAdd( aCab, { "F2_TIPO", "N", Nil } )
AAdd( aCab, { "F2_ESPECIE", "RFN ", Nil } )
AAdd( aCab, { "F2_PREFIXO", "R ", Nil } )
AAdd( aCab, { "F2_MOEDA", 1, Nil } )
AAdd( aCab, { "F2_TXMOEDA", 1, Nil } )
AAdd( aCab, { "F2_FORMUL", "S", Nil } )
AAdd( aCab, { "F2_TIPODOC", "50", Nil } )
aLinha := {}
AAdd( aLinha, { "D2_COD", "0001", 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", "UN", Nil } )
AAdd( aLinha, { "D2_ESPECIE", "RFN ", Nil } )
AAdd( aLinha, { "D2_DTVALID", CTOD("31/12/49"), Nil } )
AAdd( aLinha, { "D2_LOTECTL", "LT240611 ", Nil } )
AAdd( aLinha, { "D2_LOCALIZ", "UB001 ", Nil } )
AAdd( aItens, aLinha)
MSExecAuto( { |x,y,z| Mata462n(x,y,z) }, aCab, aItens, 3 )
If lMsErroAuto
MsgStop("Error en grabado")
MostraErro()
Else
MsgAlert('Remito Incluido: 000100000129','MsExecAuto MATA462N')
EndIf
Return Nil
|
