Função: MATA466N - Nota de Crédito/Débito - Form Proprio = Não / Tipo: Crédito - Tipo: 07 / Espécie: NCP
| 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 = Não / Tipo = Crédito através da utilização de rotina automática.No exemplo anexado, no array "_aCabec", o campo: F2_TIPODOC, deve ser passado com "07".1a) Exemplo - Nota de Crédito - Sem amarração2a) Exemplo - Nota de Crédito - Com amarração com documento Devolução / Benefício3a) Exemplo - Nota de Crédito - Com amarração com Remito
Programa Fonte:
MATA466N.PRW
Sintaxe:
MATA466N - Nota de Crédito/Débito - Form Proprio = Não / Tipo: Crédito - Tipo: 07 / Espécie: NCP ( )
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: Nao / Tipo Factura: Credito //User Function EX010()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_DOC","0411"})aadd(_aCabec,{"F2_CLIENTE","1 "})aadd(_aCabec,{"F2_SERIE","UN "})aadd(_aCabec,{"F2_LOJA","01"})aadd(_aCabec,{"F2_FORMUL","N"})aadd(_aCabec,{"F2_EMISSAO",dDataBase}) aadd(_aCabec,{"F2_COND","1"}) aadd(_aCabec,{"F2_MOEDA",1}) aadd(_aCabec,{"F2_TXMOEDA",1})aadd(_aCabec,{"F2_TIPODOC","07"})//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 documento Devolução / Benefício#INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH" //Exemplo de Nota de Crédito/Debito - Form.Proprio: Nao / Tipo Factura: Credito // //Com amarração com documento Devolução / BenefícioUser Function EX011()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_DOC","0411"})aadd(_aCabec,{"F2_CLIENTE","1 "})aadd(_aCabec,{"F2_SERIE","UN "})aadd(_aCabec,{"F2_LOJA","01"})aadd(_aCabec,{"F2_FORMUL","N"})aadd(_aCabec,{"F2_EMISSAO",dDataBase}) aadd(_aCabec,{"F2_COND","1"}) aadd(_aCabec,{"F2_MOEDA",1}) aadd(_aCabec,{"F2_TXMOEDA",1})aadd(_aCabec,{"F2_TIPODOC","07"})//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(_aItens,{"D2_NFORI","1515",nil}) aadd(_aItens,{"D2_ITEMORI","0001",nil}) aadd(_aItens,{"D2_SERIORI","UN ",nil}) aadd(aLinha,_aItens) //Executa rotinaMsExecAuto({|x, y, z| Mata466N(x, y, z)}, _aCabec, aLinha, 3) //FinalizacaoIf lMsErroAuto MostraErro()EndIfRESET ENVIRONMENT Return==========================================================================================3a) 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: Nao / Tipo Factura: Credito // //Com amarração com RemitoUser Function EX012()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_DOC","0411"})aadd(_aCabec,{"F2_CLIENTE","1 "})aadd(_aCabec,{"F2_SERIE","UN "})aadd(_aCabec,{"F2_LOJA","01"})aadd(_aCabec,{"F2_FORMUL","N"})aadd(_aCabec,{"F2_EMISSAO",dDataBase}) aadd(_aCabec,{"F2_COND","1"}) aadd(_aCabec,{"F2_MOEDA",1}) aadd(_aCabec,{"F2_TXMOEDA",1})aadd(_aCabec,{"F2_TIPODOC","07"})//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(_aItens,{"D2_REMITO","100 ",nil}) aadd(_aItens,{"D2_SERIREM","A ",nil}) aadd(_aItens,{"D2_ITEMREM","01",nil}) aadd(aLinha,_aItens) //Executa rotinaMsExecAuto({|x, y, z| Mata466N(x, y, z)}, _aCabec, aLinha, 3) //FinalizacaoIf lMsErroAuto MostraErro()EndIfRESET ENVIRONMENT Return