Histórico da Página
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#include “Protheus.ch”
User Function F290Fat2()
Local aCab := {} // array que recebera as informações do titulo
Local aFatPagAut := {} // array que recebera dados para geração da fatura
Local aTit := {}
Private lMsErroAuto := .F.
//|-------------------------------|
//| ARRAY DE TITULOS |
//|-------------------------------|
aTit := {{ "FIN" /*Prefixo*/,;
"FINA290 " /*Numero*/,;
"1" /*Parcela*/,;
"NF " /*Tipok*/,;
.F. /*Título localizado na geracao de fatura (lógico)*/},;
{ "FIN" /*Prefixo*/,;
"FINA290 " /*Numero*/,;
"2" /*Parcela*/,;
"NF " /*Tipok*/,;
.F. /*Título localizado na geracao de fatura (lógico)*/};
}
//|----------------------------------------------|
//| ARRAY DE GERAÇÃO FATURA |
//|----------------------------------------------|
aFatPagAut := { "FIN" /*Prefixo*/,;
"FT" /*Tipo*/,;
"1520165" /*Numero da Fatura*/,;
"FIN2000028" /*Natureza*/, ;
CtoD("15/09/2016") /*Data de*/,;
CtoD("15/09/2016") /*Data Ate*/,;
"FIN142" /*Fornecedor*/,;
"01" /*Loja*/,;
"" /*Fornecedor para geracao*/,;
"" /*Loja do fornecedor para geracao*/,;
"003" /*Condicao de pagto*/,;
01 /*Moeda*/,;
aTit /*ARRAY com os titulos da fatura*/,;
/*Valor de decrescimo*/,;
/*Valor de acrescimo*/
}
MsExecAuto( { |x,y,z| FINA290(x,y,z)}, 3,aFatPagAut, .T.)//3 - Inclusao, 4 - Alteração, 5 - Exclusão (nPosArotina,aFatPag,lAutomato)
If lMsErroAuto
MostraErro()
Else
Alert("Fatura gerada com sucesso!")
Endif
Return
/*
______________________________________________________________________________________________________________________________________________
*/
#include “Protheus.ch”
User Function F290Fat2()
Local aCab := {} // array que recebera as informações do titulo
Local aFatPagAut := {} // array que recebera dados para geração da fatura
Local aTit := {}
Private lMsErroAuto := .F.
//|-------------------------------|
//| ARRAY DE TITULOS |
//|-------------------------------|
aTit := {{ "FIN" /*Prefixo*/,;
"FINA290 " /*Numero*/,;
"1" /*Parcela*/,;
"NF " /*Tipok*/,;
.F. /*Título localizado na geracao de fatura (lógico)*/},;
{ "FIN" /*Prefixo*/,;
"FINA290 " /*Numero*/,;
"2" /*Parcela*/,;
"NF " /*Tipok*/,;
.F. /*Título localizado na geracao de fatura (lógico)*/};
}
//|----------------------------------------------|
//| ARRAY DE GERAÇÃO FATURA |
//|----------------------------------------------|
aFatPagAut := { "FIN" /*Prefixo*/,;
"FT" /*Tipo*/,;
"1520165" /*Numero da Fatura*/,;
"FIN2000028" /*Natureza*/, ;
CtoD("15/09/2016") /*Data de*/,;
CtoD("15/09/2016") /*Data Ate*/,;
"FIN142" /*Fornecedor*/,;
"01" /*Loja*/,;
"" /*Fornecedor para geracao*/,;
"" /*Loja do fornecedor para geracao*/,;
"003" /*Condicao de pagto*/,;
01 /*Moeda*/,;
aTit /*ARRAY com os titulos da fatura*/,;
/*Valor de decrescimo*/,;
/*Valor de acrescimo*/
}
MsExecAuto( { |x,y,z| FINA290(x,y,z)}, 3,aFatPagAut, .T.)//3 - Inclusao, 4 - Alteração, 5 - Exclusão (nPosArotina,aFatPag,lAutomato)
If lMsErroAuto
MostraErro()
Else
Alert("Fatura gerada com sucesso!")
Endif
Return |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas