Histórico da Página
...
A rotina Faturas a Pagar permite efetivar aaglutinação aglutinação ou parcelamento dos titulos em aberto de um fornecedor.
...
Nesta operação novos títulos são gerados e o sistema solicita o Código da Condição de Pagamento no qual é definido o desdobramento do título, baixando os títulos originais.
02. EXECUÇÃO
...
Procedimento efetuado de forma manual via rotina Faturas a Pagar (FINA290), com exibição das telas envolvidas no processo e necessitando de ações/comandos
...
- Automática
Procedimento realizado de forma automática na rotina de Faturas a Pagar (FINA290), sem exibição de telas ou necessidade de interação do usuário.
...
do usuário
...
Informações | ||
---|---|---|
| ||
É importante que as informações da chave do título (Prefixo, Número, Parcela, Tipo, Fornecedor e Loja) tenham o conteúdo do tamanho exato do seu respectivo campo configurado na tabela. |
...
...
#INCLUDE "Protheus.ch"
User Function FFatAut()
Local aFatPag :={}
Local aTits :={}
Local nTamTit := TamSx3("E2_NUM")[1]
Local nTamParc := TamSx3("E2_PARCELA")[1]
Local nTamForn := TamSx3("E2_FORNECE")[1]
Local nTamLoja := TamSx3("E2_LOJA")[1]
Local nTamTipo := TamSx3("E2_TIPO")[1]
Local nTamFil := TamSx3("E2_FILIAL")[1]
Private lMsErroAuto := .F.
//[13] - ARRAY com os titulos da fatura - Geradores (esses títulos devem existir na base)
//[13,1] Prefixo
//[13,2] Numero
//[13,3] Parcela
//[13,4] Tipo
//[13,5] Título localizado na geracao de fatura (lógico). Iniciar com falso.
//[13,6] Fornecedor
//[13,7] Loja
//[13,8] Filial (utilizada em fatura de títulos de diferentes filiais)
aTits := {{ "FTG", PADR("TIT01",nTamTit), PADR(" ",nTamParc), PADR("NF",nTamTipo), .f., PADR("000000",nTamForn),PADR("00",nTamLoja), PADR("D MG 01 ",nTamFil) },;
{ "FTG", PADR("TIT02",nTamTit), PADR(" ",nTamParc), PADR("NF",nTamTipo), .f., PADR("000000",nTamForn),PADR("00",nTamLoja), PADR("D MG 02 ",nTamFil) }}
//Descricao do Array aFatPag
//[01] - Prefixo
//[02] - Tipo
//[03] - Numero da Fatura (se o numero estiver em branco obtem pelo FINA290)
//[04] - Natureza
//[05] - Data de
//[06] - Data Ate
//[07] - Fornecedor
//[08] - Loja
//[09] - Fornecedor para geracao
//[10] - Loja do fornecedor para geracao
//[11] - Condicao de pagto
//[12] - Moeda
//[13] - ARRAY com os titulos da fatura - Geradores
//[14] - Valor de decrescimo
//[15] - Valor de acrescimo
aFatPag := { "FAT", PADR("NF",nTamTipo), PADR("FAT001",nTamTit), "001", CtoD("30/10/2019"), CtoD("30/10/2019"), PADR("000000",nTamForn), PADR("00",nTamLoja), "", "", "001", 01, aTits ,0 ,0 }
MsExecAuto( { |x,y| FINA290(x,y)}, 3, aFatPag )
If lMsErroAuto
MostraErro()
Else
Alert("Fatura gerada com sucesso")
Endif
Return
03. OPERAÇÕES
- Selecionar
Esta opção permite incluir títulos para aglutinação.
...
Tabela | Descrição |
---|---|
FK2 | Baixas a Pagar |
FK3 | Impostos Calculados |
FK4 | Impostos Retidos |
FK7 | Tabela Auxiliar |
FKA | Rastreio de Movimentos |
SA2 | Fornecedores |
SE2 | Contas a Pagar |
SED | Naturezas |
07. INFORMAÇÕES RELACIONADAS
Execução automática: Faturas a Pagar (FINA290) - Execução automática (ExecAuto)