Linha Microsiga Protheus

Árvore de páginas

Função: MATA101N - Factura de Entrada - Normal - Tipo: 10 / Espécie: NF
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 Factura de Entrada tipo: Normal através da utilização de rotina automática.No exemplo anexado, no array "_aCabec", o campo: F1_TIPODOC, deve ser passado com "10" para indicar que é uma Factura do tipo: Normal.Existem dos exemplos sendo eles:1-Baixando Pedidos de Compras2-Baixando Remitos
Programa Fonte: 
MATA101N.PRW
Sintaxe:

MATA101N - Factura de Entrada - Normal - Tipo: 10 / Espécie: NF ( )

Retorno:
    ()
Observações

Exemplos 
1A) Exemplo: Vinculando Pedido de Compras a Factura#INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH"    //Exemplo de Factura de Entrada - vinculando Pedido de Compras //User Function EX001()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 "SF1", "SD1"   //Cabecalhoaadd(_aCabec,{"F1_FILIAL","01"})aadd(_aCabec,{"F1_DOC","0111"})aadd(_aCabec,{"F1_SERIE","UN"})aadd(_aCabec,{"F1_FORNECE","1     "})aadd(_aCabec,{"F1_LOJA","01"})aadd(_aCabec,{"F1_TIPO","N"})aadd(_aCabec,{"F1_FORMUL","N"})aadd(_aCabec,{"F1_EMISSAO",dDataBase}) aadd(_aCabec,{"F1_TXMOEDA",1}) aadd(_aCabec,{"F1_COND","1  "})  aadd(_aCabec,{"F1_TIPODOC","10"})//Itensaadd(_aItens,{"D1_COD","1",nil})aadd(_aItens,{"D1_QUANT",1,nil})aadd(_aItens,{"D1_VUNIT",10,nil})aadd(_aItens,{"D1_TOTAL",10,nil})aadd(_aItens,{"D1_PEDIDO","000001",nil})aadd(_aItens,{"D1_ITEMPC","0001",nil})aadd(_aItens,{"D1_TES","001",nil})       aadd(aLinha,_aItens)//Executa rotinaMsExecAuto({|x, y, z| Mata101N(x, y, z)}, _aCabec, aLinha, 3)   //FinalizacaoIf lMsErroAuto    MostraErro()Endif     RESET ENVIRONMENT   Return================================================================================================2a) Exemplo: Vinculando Remito de Compras a Factura#INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH"    //Exemplo de Factura de Entrada - vinculando a Remito //User Function EX002()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 "SF1", "SD1"   //Cabecalhoaadd(_aCabec,{"F1_FILIAL","01"})aadd(_aCabec,{"F1_DOC","0112"})aadd(_aCabec,{"F1_SERIE","UN"})aadd(_aCabec,{"F1_FORNECE","1     "})aadd(_aCabec,{"F1_LOJA","01"})aadd(_aCabec,{"F1_TIPO","N"})aadd(_aCabec,{"F1_FORMUL","N"})aadd(_aCabec,{"F1_EMISSAO",dDataBase}) aadd(_aCabec,{"F1_TXMOEDA",1}) aadd(_aCabec,{"F1_COND","1  "})  aadd(_aCabec,{"F1_TIPODOC","10"})//Itensaadd(_aItens,{"D1_COD","1",nil})aadd(_aItens,{"D1_QUANT",1,nil})aadd(_aItens,{"D1_VUNIT",100,nil})aadd(_aItens,{"D1_TOTAL",100,nil})aadd(_aItens,{"D1_REMITO","REM-01       ",nil})aadd(_aItens,{"D1_SERIREM","UN ",nil})aadd(_aItens,{"D1_ITEMREM","0001",nil})aadd(_aItens,{"D1_TES","001",nil})       aadd(aLinha,_aItens)//Executa rotinaMsExecAuto({|x, y, z| Mata101N(x, y, z)}, _aCabec, aLinha, 3)   //FinalizacaoIf lMsErroAuto    MostraErro()Endif     RESET ENVIRONMENT   Return