Função: Mata465n - Nota de Debito e Credito ao Cliente
Função utilizada para geração de Nota de Debito e Credito ao Cliente via rotina automática (ExecAuto).
Mata465n - Nota de Debito e Credito ao Cliente ( [ aCab], [ aItens], [ nOpc] ) --> Nil
| Nome | Tipo | Descrição | Obrigatório | Referência |
| aCab | Array of Record | Array contendo os dados do cabeçalho. | ||
| aItens | Array of Record | Array contendo os dados dos itens. | ||
| nOpc | Numérico | Opção da rotina. |
Nil (Nulo)
//Exemplo utilizando Nota de Débito ClienteUser Function MyMt465n() Local aCab := {}Local aLinha := {}Local aItens := {}Private lMsErroAuto := .T.AAdd( aCab, { "F2_CLIENTE" , "000001" , Nil } ) AAdd( aCab, { "F2_LOJA" , "01" , Nil } ) AAdd( aCab, { "F2_SERIE", "B " , Nil } ) AAdd( aCab, { "F2_DOC" , "00000000000000000004" , 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", "C" , Nil } ) AAdd( aCab, { "F2_ESPECIE", "NDC " , Nil } ) AAdd( aCab, { "F2_PREFIXO", "B" , Nil } ) AAdd( aCab, { "F2_MOEDA", 1 , Nil } ) AAdd( aCab, { "F2_TXMOEDA", 1 , Nil } ) AAdd( aCab, { "F2_FORMUL", "S" , Nil } ) AAdd( aCab, { "F2_TIPODOC", "02" , Nil } ) aLinha := {} AAdd( aLinha, { "D2_COD" , "000001" , Nil } )AAdd( aLinha, { "D2_QUANT" , 100 , Nil } ) AAdd( aLinha, { "D2_PRCVEN" , 90 , Nil } ) AAdd( aLinha, { "D2_TOTAL" , 9000 , Nil } )AAdd( aLinha, { "D2_TES" , "501" , Nil } )AAdd( aLinha, { "D2_UM" , "UN" , Nil } )AAdd( aLinha, { "D2_ESPECIE" , "NDC " , Nil } )AAdd( aItens, aLinha)MSExecAuto( { |x,y,z| Mata465n(x,y,z) }, aCab, aItens, 3 ) If lMsErroAuto MsgStop("Erro na gravação.") MostraErro()Else MsgAlert('Incluido com sucesso.') EndIfReturn
Protheus 10
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas