Versão atual:

Potheus - MSExecAuto MATA140 não inclui campos D1_DESC, D1_VALDESC e D1_CLASFIS

Estou realizando testes de inclusão de Pré-documento de entrada (MATA140) via EXECAUTO, porém os campos mencionados no título(D1_DESC, D1_VALDESC, D1_CLASFIS) não são gravados, já todos os outros campos são gravados corretamente.

Outro ponto é que se eu insiro os valores manualmente pelo banco/apsdu os valores não são apresentados no browse ao clicar em visualizar ou mesmo no momento do lançamento do documento (MATA103), sendo apresentados com valores zerados, mesmo estando preenchido no banco.

Segue função executada para realização do teste.

#Include "PROTHEUS.CH"
#INCLUDE "rwmake.ch"          
#INCLUDE "topconn.ch"

User Function GERAPRENOTA() 
    Private lMsErroAuto := .F.
    aCabec         := {}
    aItens        := {}
    aLinha        := {}


    aadd(aCabec,{"F1_TIPO"       ,"N"        })
    aadd(aCabec,{"F1_FORMUL"     ,"N"        })
    aadd(aCabec,{"F1_FILIAL"    ,'00'        })
    aadd(aCabec,{"F1_DOC"        ,'999908888'})
    aadd(aCabec,{"F1_SERIE"     ,'01'        })
    aadd(aCabec,{"F1_EMISSAO"    ,stod('20190614')    })
    aadd(aCabec,{"F1_CHVNFE"    ,'33190533069212001237550010003759581532876002'})
    aadd(aCabec,{"F1_DESPESA"    ,0            }) 
    aadd(aCabec,{"F1_FORNECE"    ,'000731'    })
    aadd(aCabec,{"F1_LOJA"       ,'02'        })
    aadd(aCabec,{"F1_ESPECIE"    ,"SPED"        })
    aadd(aCabec,{"F1_EST"        ,'MG'        })
    aadd(aCabec,{"F1_COND"       ,"01"        })
    aadd(aCabec,{"F1_SEGURO"     ,0    ,NIL        })
    aadd(aCabec,{"F1_FRETE"     ,0    ,NIL        })
    aadd(aCabec,{"F1_DESCONT"     ,5    ,NIL        })
    aadd(aCabec,{"F1_VALMERC"    ,25    ,NIL})
    aadd(aCabec,{"F1_VALBRUT"    ,25    ,NIL})


    aadd(aLinha,{"D1_ITEM"      ,'0001'        ,Nil})
    aadd(aLinha,{"D1_FILIAL"    ,'00'       ,Nil})
    aadd(aLinha,{"D1_COD"       ,'000068         '  ,Nil})
    aadd(aLinha,{"D1_UM"        ,'UN'                  ,Nil})
    aadd(aLinha,{"D1_QUANT"     , 5            ,Nil})
    aadd(aLinha,{"D1_VUNIT"     ,5,Nil})    
    aadd(aLinha,{"D1_TOTAL"     ,25            ,Nil})
    aadd(aLinha,{"D1_LOCAL"      ,"01"               ,Nil})         
    aadd(aLinha,{"D1_DESCRI"     ,'BISOPROLOL 5MG* 30 COMP. REVEST (G) MERC' ,Nil})             
    aadd(aLinha,{"D1_FCICOD"    ,''     ,Nil}) 
    aadd(aLinha,{"D1_DESPESA"    ,0        ,Nil})
    aadd(aLinha,{"D1_DESC"        ,2        ,Nil})
    aadd(aLinha,{"D1_VALDESC"    ,2      ,Nil}) 
    aAdd(aLinha,{"D1_LOTEFOR"    ,'BR109258          ',NIL})
    aadd(aLinha,{"D1_PEDIDO",'A23499'                  ,Nil})
    aadd(aLinha,{"D1_ITEMPC",'0001'                 ,Nil})
    aadd(aLinha,{"D1_CC"    ,'101810200'            ,Nil})
    aadd(aLinha,{"D1_CLASFIS","5  "                    ,Nil})
    aadd(aLinha,{"AUTDELETA","N"                    ,Nil})
    aadd(aItens,aLinha)

    MSExecAuto({|x,y,z| MATA140(x,y,z)}, aCabec,aItens, 3)

    If lMsErroAuto
        mostraerro()
    Else
        MSGALERT("TUDO OK")
    ENDIF

Return

Alguém tem alguma ideia do que seja? Fico grato se alguém puder ajudar.

Versões (3):

Ver a versão formatada

Potheus - MSExecAuto MATA140 não inclui campos D1_DESC, D1_VALDESC e D1_CLASFIS

Comentário

new question