Tempo aproximado para leitura: 00:03:00 min
Dúvida
Exemplo Execauto de inclusão de Faturas a Pagar
Ambiente
Cross Segmentos - TOTVS Backoffice (Linha Protheus) - Financeiro - Todas as versões
Solução
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.
Utilizado em customizações onde o processo não necessita de interações do usuário (MSEXECAUTO).
Exemplo de rotina automática
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#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 acrescimoaFatPag := { "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")EndifReturn |
Saiba mais: Faturas a Pagar (FINA290) - Execução automática (ExecAuto)
0 Comentários