Histórico da Página

...

Este ponto de entrada foi disponibilizado para tratar tipos de produto criados pelo usuário, relacionando-os com os tipos descritos no registro 0200 do Ato Cotepe 09/2008, conforme a tabela a seguir:

        00 – Mercadoria para Revenda;

        01 – Matéria-Prima;

...

  02 – Embalagem;

...

  03 – Produto em Processo;

...

  04 – Produto Acabado;

...

05 – Subproduto;

...

  06 – Produto Intermediário;

...

07 – Material de Uso e Consumo;

...

  08 – Ativo Imobilizado;

...

  09 – Serviços;

...

10 – Outros insumos;

...

  99 – Outras.

Programa Fonte

SPEDFISCAL.PRW / FISA008.PRW / MATXSPED.PRW

03. ESPECIFICAÇÃO

Parâmetros do ponto de entrada:

SPDFIS001 - Trata tipos de produtos ( < aTipo> ) --> aTipo

Observação: O parâmetro cAliasSB1 não está disponível nas execuções do ponto de entrada na geração do Bloco K do SpedFiscal (MATXSPED.PRW).

Parâmetros:

Retorno
aTipo

• Array com os tipos de produto padrão do sistema acrescidos dos tipos criados pelo usuário

Observações

O ponto de entrada será chamado a cada produto novo a ser lançado no registro 0200.

É passado como parâmetro um array (aTipo) contendo o relacionamento dos tipos de produto que o sistema tem por padrão, e a sua correspondência com a tabela de tipos do SPED Fiscal.

aTipo    :=    { {"ME","00"},;
                      {"MP","01"},;
                      {"PA","04"},;
                      {"MC","07"},;
                      {"MO","09"} }

04.04. EXEMPLO DE UTILIZAÇÃO

#INCLUDE 'PROTHEUS.CH'  

User Function A952CONT ()SPDFIS001
Local aA952aTipo   := ParamIXB[1]
local cCod    := ""     
local cDesc   := ""          
local cValor  := ""          
local cSubCod := ""   
local cGnre := ""                    

If !Empty(aA952)	
    aA952[1] := cCod	
    aA952[2] := cDesc	
    aA952[3] := cValor	
    aA952[4] := cSubcod	
    aA952[5] := cGnre
Endif

Return(aA952)


alert("Ponto de entrada SPDFIS001")
AADD(aTipo,{"XX","00"})

Return aTipo  

05. INFORMAÇÕES ADICIONAIS

...