Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Beatriz Martins

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (loliana.silva)

Gravado em

Chave

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

Ponto de Entrada

Descrição:

Este ponto de entrada tem como finalidade permitir que o cliente customize o cálculo de imposto na rotina

Customização do cálculo de impostos no

Orçamento por Fases (OFIXA011).

Características do Requisito

Orc. por Fases

Rotinas envolvida(s)

Localização:

Mov. Oficina /

Linha de Produto:

Microsiga Protheus

Segmento:

Varejo

Módulo:

Autopeças

Rotina:

Rotina

Nome Técnico

OFIXA011

Eventos:

OX001PecFis(

)

Nome Técnico

OFIXA011

Orc. por Fases

 

 

Ponto de Entrada:

OX001FIS  

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Descrição

Escreva aqui a descrição da nova implementação ou melhoria.

 

 

 

 

 

 

 

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

Ponto de Entrada

Descrição:

Informe o Menu em que estará localizada a rotina

Localização:

Informe o Submenu em que estará localizada a rotina

Eventos:

Informe o Título da rotina

Programa Fonte:

Informe o Fonte da rotina

Função:

Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”

Retorno:

Nome

Tipo

Descrição

Obrigatório

 

 

 

 

 

 

 

 

 

 

 

 

 

Exemplo:

#Include 'Protheus.ch'

User Function CN120ALT()

Local aCab:= PARAMIXB[1]

Local cTipo:= PARAMIXB[2]

If cTipo == '1'

    aCab[4][2]:= 'NF' //Validações do usuário

EndIf

Return aCab