Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Descrição

Este ponto de entrada permite que os campos: Gera Dirf (E2_DIRF) e Cód.Ret. (E2_CODRET) sejam preenchidos no momento da geração de pagamentos de comissões.


Observações

Exemplos

#INCLUDE "PROTHEUS.CH"
User Function M530DIRF()
Local aTitulos := {}
Local cCodRet := " "
Local aAreaSE2 := SE2->(GetArea())
Local nPos := 0
//Vetor com chave para identificar registro na SE2 e código de retencao retenção a ser enviado na DIRF.
aAdd(aTitulos,{ "D MG 01 COMDP PJCOM 1 SEMIMP ", "1708"})
nPos := Ascan(aTitulos, {|x

x[1] == (SE2->E2_FILIAL+SE2->E2_PREFIXO+SE2->E2_TIPO+SE2->E2_FORNECE+SE2->E2_LOJA+SE2->E2_NATUREZ)})

If nPos > 0

cCodRet := aTitulos[nPos,2]

Endif

RestArea(aAreaSE2)

Return cCodRet

...

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus10 e Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

Código de Retenção (cCodRet)

Eventos de chamada do Ponto de Entrada

Executar a rotina de Atualização de pagamentos de comissões.

Variáveis

cCodRet (retorno do ponto de entrada).

Programa Fonte

MATA530.PRX