import.css=/download/attachments/327912/newLayout.css

Ponto-de-Entrada: SPEDPROD - Retorna Array de Informações

 

Versões:Microsiga Protheus 8.11 , Microsiga Protheus 10
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Espanhol , Inglês

 

Descrição:
Este ponto tem como finalidade retornar um array com as informações do produto para os clientes que possuem uma forma diferente do padrão de compor o código do produto.Neste ponto é passado como parâmetro as variáveis cAliasSFT,cRegspd e cUni. O alias contém o filtro efetuado no SFT de onde são lidas as informações do documento fiscal,a variável cRegspd contém o nome do registro e a cUnid, o campo unidade de medida do produto. Com isso é possível identificar o produto e retornar o array com as seguintes informações:aProd[1] - Código do Produto(campo padrão B1_COD )aProd[2] - Descrição do produto(campo padrão B1_DESC)aProd[3] - Código de barras(campo padrão B1_CODBAR)aProd[4] - Código Anterior(campo padrão B1_CODANT)aProd[5] - Unidade de medida(campo padrão B1_UM)aProd[6] - Tipo do ItemaProd[7] - Código de NCM(campo padrão B1_POSIPI)aProd[8] - Exceção da NCM(campo padrão B1_EX_NCM)aProd[9] - Código do gênero do item (2 primeiros caracteres do NCM obs.:(se for um item de serviço o código do genero é 00))(campo padrão B1_POSIPI)aProd[10] - Código de ISS(campo padrão B1_CODISS)aProd[11] - Alíquota de ICMS(campo padrão B1_PICM)Observação: utilizando o ponto de entrada deve passar todas as posições preenchidas.
Programa Fonte
SPEDFISCAL.PRW
Sintaxe

SPEDPROD - Retorna Array de Informações ( [ cAliasSFT ], [ cRegsped ], [ cUnid ] ) --> array

Parâmetros:

 

 Nome  Tipo  Descrição  Default  Obrigatório  Referência 
 cAliasSFT  Caracter  Alias da tabela SFT filtrada          
 cRegsped  Caracter  Nome do registro          
 cUnid  Caracter  Campo Unidade de Medida do produto.          

 

Retorno
array
    ()
  • Array com 11 Posições
Exemplos
#include "Rwmake.ch"User Function SPEDPROD()Local cAlias := paramixb[1]Local cRegspd := paramixb[2]Local cUnid :=  paramixb[3]Local aProd  := {}aAdd (aProd, "teste")    Return(aProd)