Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este ponto de entrada tem como finalidade permitir que o cliente customize o cálculo de imposto na rotina Orçamento por Fases (OFIXA011).

Localização:

Mov. Oficina / Orc. por Fases

Eventos:

OX001PecFis()

MaFisRef("IT_CLASFIS","VS300",M->VS3_SITTRI)

MaFisRef("IT_TES","VS300",M->VS3_CODTES)

 

OX001PecFis()

MaFisRef("IT_CLASFIS","VS300",M->VS3_SITTRI)

MaFisRef("IT_TES","VS300",M->VS3_CODTES)

 

If ExistBlock("OX001FIS") // Ponto de entrada para calculo da exceção fiscal

ExecBlock("OX001FIS",.f.,.f.)

EndIf

 

if M->VS3_QTDITE > 0 

 

Programa Fonte:

OFIXX001

Função:

OX001PREPEC()

Retorno:

N/A

 

Exemplo:

 

User Function OX001FIS()

If Left(MaFisRet(n,"IT_CLASFIS"),1) $ "1.2.3.8" .and. !MaFisRet(n,"IT_CF") $ cExceRes13

MaFisRef("IT_ALIQICM","VS300",0)

Endif

 

Return