Histórico da Página

#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