Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada A103CLAS

Linha de Produto:

Microsiga Protheus

Segmento:

Backoffice

Módulo:

Compras (SIGACOM)

Ponto de Entrada:

A103CLAS

País(es):

Brasil

Banco(s) de Dados:

Todos

Abrangência

Protheus 11, Protheus 12

Sistema(s) operacional(is):

Windows/Linux

Ponto de Entrada

Descrição:

É executado quando classifica um Documento de Entrada.

FINALIDADE : Serve para alterar dados do item que carrega da pré nota.

Programa Fonte:

MATA103

Sintaxe

A103CLAS - Permite manipular o Item do Acols ( [ cAliasSD1 ] )
Parâmetros

Nome

Tipo

Descrição

Default

Obrigatório

cAliasSD1Array of RecordAlias do SD1
         
Retorno:

Caso utilize o ponto de entrada A103CLAS e realize alguma alteração nos IMPOSTOS (IPI / ICMS / PIS / COFINS), deve-se retornar um array de 4 posições informando qual imposto foi modificado via ponto de entrada.

Onde:

.T. - Alterou imposto

.F. - Não alterou imposto


Obs: Mesmo que altere apenas 1 imposto, deve-se retornar sempre as 4 posições no array. Caso não altere nenhum imposto, não há necessidade de retornar uma array;

NomeTipoDescriçãoObrigatório
aRetArray

1 - IPI

2 - ICMS

3 - PIS

4 - COFINS

Não
Exemplo - Alterando IMPOSTO:
User function A103CLAS()   

Local cAliasSD1 := PARAMIXB[1]        
Local nBaseIPI:= aScan(aHeader,{|x|Alltrim(x[2])=="D1_BASEIPI"}) 
Local nBaseICM:= aScan(aHeader,{|x|Alltrim(x[2])=="D1_BASEICM"}) 
Local nBasePis:= aScan(aHeader,{|x|Alltrim(x[2])=="D1_BASEPIS"}) 
Local nBaseCof:= aScan(aHeader,{|x|Alltrim(x[2])=="D1_BASECOF"})
Local aRet    := {}

//Customização do usuário.			

ACols[Len(ACols),nBaseICM] := 0
ACols[Len(ACols),nBasePis] := 0

// IPI - Não alterado
AADD(aRet, .F.) 

// ICMS - Alterado
AADD(aRet, .T.)

// PIS - Alterado
AADD(aRet,.T.) 

// COFINS - Não alterado
AADD(aRet, .F.) 

Return aRet
Exemplo - Sem alteração de IMPOSTO:

User function A103CLAS()

Local cAliasSD1 := PARAMIXB[1]
Local nValunt := aScan(aHeader,{|x|Alltrim(x[2])=="D1_VUNIT"}) 
Local nValtot := aScan(aHeader,{|x|Alltrim(x[2])=="D1_TOTAL"}) 


//Customização do usuário.
ACols[Len(ACols),nValunt] := 2.0
ACols[Len(ACols),nValtot] := 2.0

Return