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