...
| Linha Línea de Produtoproducto: | Microsiga Protheus® |
|---|---|
Segmento: | Backoffice |
Módulo: | Financeiro Financiero |
| Função Función: | FINA240 - BorderôBorderó de Pagamentospagos |
...
O ponto El punto de entrada F240GAVE tem tiene como objetivo permitir a manipulação dos dados el manejo de los datos de filtro para montagem do borderô.montaje del borderó.
La13ª posición del A 13ª posição do array (nOpc) define se a rotina será executada ou abortadasi la rutina se ejecutará o descontinuará. Para continuar, ela deve ter como conteúdo o número inteiro esta debe tener como contenido el número entero "1" e para abortar a execução y para descontinuar la ejecución "0" (valor defaultestándar).
ObservaçãoObservación:
Caso Si este ponto punto de entrada esteja sendo utilizado, a tela se estuviera utilizando, la pantalla inicial de montagem de borderôs padrão não será apresentadamontaje de borderós estándar no se mostrará.
...
| NomeNombre | DescriçãoDescripción | ||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| PARAMIXB | Array contendo os dados iniciais do filtro passiveis de manipulação. Sendo:con los datos iniciales del filtro posibles de manejo. Donde:
|
...
| Tipo | DescriçãoDescripción |
|---|---|
| Array | Array contendo con 13 posiçõesposiciones. Obs.: o array retornado pelo ponto de entrada deve respeitar as posições conforme o array recebido por parâmetro el array devuelto por el punto de entrada debe respetar las posiciones de acuerdo con el array recibido por el parámetro (paramIXB). |
...
...
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} F240GAVE
PontoPunto de entrada para manipulaçãomanejo dodel filtro dodel borderôborderó de pagamentospagos.
@type function
@author TOTVS
@since 29/01/2021
@return array, array comcon 13 posiçõesposiciones contendocon oslos filtros que se serãoaplicarán aplicadosen nala rotinarutina borderôborderó de pagamentospagos
/*/
User Function F240GAVE() As Array
Local aVars As Array
Local nOpc As Numeric
aVars := paramIXB //parâmetroparámetro passadotransferido viavía ExecBlock
nOpc := aVars[13]
// AquiAquí ées possívelposible escreverescribir suasu lógica de programaçãoprogramación para definiçãodefinición dodel filtro
If !(IsBlind())
If MsgYesNo("Deseja¿Desea continuar con comla aejecución execuçãode dala rotinarutina?", "BorderôBorderó de Pagamentopago")
nOpc := 1
Else
nOpc := 0
EndIf
Else
nOpc := 1
EndIf
If nOpc == 1
aVars[01] := "000008" //cNumBor
aVars[02] := CToD("01/01/2024") //dVenIni240
aVars[03] := CToD("31/12/2024") //dVenFim240
aVars[04] := 99999.99 //nLimite
aVars[05] := "237" //cPort240
aVars[06] := "1500" //cAgen240
aVars[07] := "111222333" //cConta240
aVars[09] := "01" //Moeda
aVars[11] := "31" //cModPgto
aVars[12] := "20" //cTipoPag
aVars[13] := nOpc
Else
aVars[13] := nOpc
EndIf
Return aVars |
...