Linha Microsiga Protheus

Árvore de páginas

Função: MATA466N - Nota de Crédito/Débito - Form Proprio = Sim / Tipo: Débito (Tipo: 06 / Espécie: NDI)
Abrangências: Microsiga Protheus 11 , Protheus 10
Versões: Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Nível de Acesso: Nível 1 (Acesso Clientes)
Idiomas: Português (Brasil) , Português (Portugal) , Espanhol , Inglês
Descrição: 
A documentação permite inserir uma Nota de Crédito / Débito - com Formulário Próprio = Sim / Tipo = Débito através da utilização de rotina automática.No exemplo anexado, no array "_aCabec", o campo: F2_TIPODOC, deverá ser passado com "06".1a) Exemplo - Nota de Crédito - Sem amarração2a) Exemplo - Nota de Crédito - Com amarração com Remito
Programa Fonte: 
MATA466N
Sintaxe:

MATA466N - Nota de Crédito/Débito - Form Proprio = Sim / Tipo: Débito (Tipo: 06 / Espécie: NDI) ( )

Retorno:
    ()
Exemplos 
1a) Exemplo - Nota de Crédito - Sem amarração#INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH"    //Exemplo de Nota de Crédito/Debito - Form.Proprio: Sim / Tipo Factura: Debito // User Function EX013()Local _aCabec  		:= {}    //Array com dados do cabecalhoLocal _aItens  		:= {}    //Array com dados do itemLocal aLinha   		:= {}    //Array de trabalho Private aRecsSF1    := {}    //Array para vinculo de NotasPrivate lMsErroAuto := .f.   //Controle de execucao da Rotina //Prepara ambiente de Exemplo //     PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM" TABLES "SF2", "SD2"   //Cabecalhoaadd(_aCabec,{"F2_FILIAL","01"})aadd(_aCabec,{"F2_CLIENTE","1     "})aadd(_aCabec,{"F2_SERIE","A  "})aadd(_aCabec,{"F2_LOJA","01"})aadd(_aCabec,{"F2_FORMUL","S"})aadd(_aCabec,{"F2_EMISSAO",dDataBase}) aadd(_aCabec,{"F2_COND","1"}) aadd(_aCabec,{"F2_MOEDA",1})  aadd(_aCabec,{"F2_TXMOEDA",1})aadd(_aCabec,{"F2_TIPODOC","06"})//Itensaadd(_aItens,{"D2_COD","1",nil})aadd(_aItens,{"D2_QUANT",1,nil})aadd(_aItens,{"D2_PRCVEN",50,nil})          aadd(_aItens,{"D2_TOTAL",50,nil})aadd(_aItens,{"D2_TES","501",nil}) aadd(aLinha,_aItens) //Executa rotinaMsExecAuto({|x, y, z| Mata466N(x, y, z)}, _aCabec, aLinha, 3)   //FinalizacaoIf lMsErroAuto    MostraErro()EndIfRESET ENVIRONMENT   Return==============================================================================================2a) Exemplo - Nota de Crédito - Com amarração com Remito#INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH"    //Exemplo de Nota de Crédito/Debito - Form.Proprio: Sim / Tipo Factura: Debito //  //Com amarração com RemitoUser Function EX014()Local _aCabec  		:= {}    //Array com dados do cabecalhoLocal _aItens  		:= {}    //Array com dados do itemLocal aLinha   		:= {}    //Array de trabalho Private aRecsSF1    := {}    //Array para vinculo de NotasPrivate lMsErroAuto := .f.   //Controle de execucao da Rotina //Prepara ambiente de Exemplo //     PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM" TABLES "SF2", "SD2"   //Cabecalhoaadd(_aCabec,{"F2_FILIAL","01"})aadd(_aCabec,{"F2_CLIENTE","1     "})aadd(_aCabec,{"F2_SERIE","B  "})aadd(_aCabec,{"F2_LOJA","01"})aadd(_aCabec,{"F2_FORMUL","S"})aadd(_aCabec,{"F2_EMISSAO",dDataBase}) aadd(_aCabec,{"F2_COND","1"}) aadd(_aCabec,{"F2_MOEDA",1})  aadd(_aCabec,{"F2_TXMOEDA",1})aadd(_aCabec,{"F2_TIPODOC","06"})//Itensaadd(_aItens,{"D2_COD","1",nil})aadd(_aItens,{"D2_QUANT",1,nil})aadd(_aItens,{"D2_PRCVEN",1000,nil})          aadd(_aItens,{"D2_TOTAL",1000,nil})aadd(_aItens,{"D2_TES","501",nil}) aadd(_aItens,{"D2_REMITO","0000000000005",nil}) aadd(_aItens,{"D2_ITEMREM","01",nil}) aadd(_aItens,{"D2_SERIREM","B  ",nil}) aadd(aLinha,_aItens) //Executa rotinaMsExecAuto({|x, y, z| Mata466N(x, y, z)}, _aCabec, aLinha, 3)   //FinalizacaoIf lMsErroAuto    MostraErro()EndIfRESET ENVIRONMENT   Return