Histórico da Página
...
| Aviso | ||
|---|---|---|
| ||
É importante que, ao haver a necessidade de deslocar algum registro das tabelas físicas dentro do Ponto de Entrada, esse tenha o tratamento de GetArea() e RestArea() para que o sistema siga o fluxo normal. |
03. Especificação
Parâmetros do ponto de entrada:
| Nome | Tipo | Descrição |
|---|---|---|
| ParamIXB[1] | Numérico | Número do Item |
| ParamIXB[2] | Carácter | Código do Produto |
| ParamIXB[3] | Carácter | Código da TES |
| ParamIXB[4] | Carácter | Tipo de Participante (C = Cliente/F = Fornecedor) |
| ParamIXB[5] | Carácter | Código do Participante |
| ParamIXB[6] | Carácter | Código da Loja do Participante |
| ParamIXB[7] | Carácter | Operação da Nota Fiscal E/S |
Retorno:
O ponto de entrada deverá retornar um array de 3 posições:
...
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH"
User Function MaCPISAPU()
Local nItem := PARAMIXB[1] //Número do Item
Local cProduto := PARAMIXB[2] //Código do Produto
Local cTes := PARAMIXB[3] //Código da TES
Local cCliFor := PARAMIXB[4] //Tipo de Participante (C = Cliente/F = Fornecedor)
Local cCodCliFor := PARAMIXB[5] //Código do Participante
Local cLoja := PARAMIXB[6] //Código da Loja do Participante
Local cOperNF := PARAMIXB[7] //Operação da Nota Fiscal (E = Entrada/S = Saída)
Local Local aRet := {}
Local cCalcPS2 := "SN" // S=Calcula PIS; N=Não Calcula PIS.
Local nAliqPS2 := 100 // Retorna o percentual de alíquota do PIS.
Local nBasePS2 := 10000 // Retorna a base de cálculo do PIS.
If cProduto $ 'PA0000000000000000000000000001'
cCalcPS2 := "S"
nAliqPS2 := 1
nBasePS2 := 1000
ElseIf cProduto $ 'PA0000000000000000000000000002'
cCalcPS2 := "S"
nAliqPS2 := 3
nBasePS2 := 3000
EndIf
aAdd(aRet, cCalcPS2 )
aAdd(aRet, nAliqPS2 )
aAdd(aRet, nBasePS2 )
Return aRet |
05. DEMAIS INFORMAÇÕES
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas