Ponto-de-Entrada: MT100GE2 - Complementa a Gravação dos Títulos Financeiros a Pagar
| Abrangências: | Microsiga Protheus 10 , 11 e 12 |
| Versões: | Microsiga Protheus 10 , 11 e 12 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
Descrição:Localização.: Function A103AtuSE2 - Rotina que efetua a integração entre o documento de entrada e os títulos financeiros a pagar,após a gravação de cada parcela.
Finalidade...: Complementar a gravação na tabela dos títulos financeiros a pagar.
SintaxeMT100GE2( [ PARAMIXB[1] ], [ PARAMIXB[2] ], [ PARAMIXB[3], [ PARAMIXB[4], [ PARAMIXB[5] ] ) --> Nil
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência |
|
|
| PARAMIXB[1] | Array of Record | ACols dos títulos financeiro a pagar |
| | | |
|
|
|
|
| PARAMIXB[2] | Numérico | 1=inclusão de títulos
2=exclusão de títulos |
| | |
|
|
|
|
| PARAMIXB[3] | Array of Record | AHeader dos títulos financeiros a pagar |
| | |
|
|
|
|
| PARAMIXB[4] | Numérico | Numero da parcela sendo processada |
| | | |
|
|
|
|
| PARAMIXB[5] | Numérico | Array das parcelas do titulo |
| | | |
Retorno: Nil
Exemplo:
#Include #include 'Protheusprotheus.ch'
#include 'parmtype.ch'
User Function MT100GE2()
Local aTitAtual aTitAtual := PARAMIXB[1]
Local nOpc nOpc := PARAMIXB[2]
Local aHeadSE2:= PARAMIXB[3]
Local aParcelas := ParamIXB[5]
Local nX nX := ParamIXB[4]
//.....Exemplo de customização
Local nPos:=Ascan(aHeadSE2,{|x| Alltrim(x[2]) == 'E2_OBS'})
If nOpc == 1 //.. inclusao
SE2 SE2->E2_OBSHIST:=aCols[nPos]
EndIf"Exemplo de utilização do P.E. MT100GE2 "
Endif
Return(Nil)
