Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Reynaldo Tetsu Miyashita

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Rubieni Gonzalez Aparicio

Gravado em

Chave

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

Cadastro de Produto

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAEST - Estoque e Custos

Função:

MATR462 - Relatorios Relatórios Produto Controlados DECRETO 3665

Situação:

Necessidade de efetuar tratamento para Produto Controlado conforme definições em campos da tabela de Complemento de Produto (SB5).

Solução:

Efetuado Foi realizado o tratamento para Produto Controlado, conforme definições em campos da tabela de Complemento de Produto (SB5).

...

Observação:

Para o tratamento mencionado ,deverão ser criados os campos na tabela de Complemento de Produto (SB5)

...

.

Deve-se preencher estes campos nos parâmetros MV_MTR949A e MV_MTR949D conforme exemplificado abaixo:

 

Estrutura da tabela SB5 (Dados Adicionais do Produto)

...

CampoDescriçãoTipoTamanhoDetalheF3
B5_PROEX 

Produto Controlado      

C

1

S=Sim;N=Nao

     
 

B5_DESC  

Descricao

Descrição Exercito      

C

40

 

     

  

Verificar existência ou criar parâmetros abaixo, preenchendo conforme este exemplo.

...

X6_VAR

X6_DESCRIC

X6_CONTEUD

MV_MTR949A

Informe o campo da tabela SB5, que indica se o produto é controlado pelo Exército

B5_PROEX

MV_MTR949D

Informar o campo da tabela SB5, que contenha a descrição do produto (consultar boletim Mapa de Prod. Contr. - Exército)

B5_DESC

 

Será

...

criada nas perguntas do relatório, a opção

...

Apenas Prod. Obrig. ?

...

Com as opções de preenchimento:

...

 

 

#include 'totvs.ch' 

 

user function IMSP020( cXML ) 

 

      Local cRet      := '' 

      Local oModSA2   := FWLoadModel( 'MATA020' ) 

      Local aArea     := GetArea() 

      Local oXml      := TXmlManager():New() 

      Local nResult   := oXml:Parse( cXML ) 

      Local cA2Filial := PadR( oXML:XPathGetNodeValue( "/MATA020/MATA020_SA2/A2_FILIAL/value" ), TAMSX3( 'A2_FILIAL' )[ 1 ] ) 

      Local cA2Cod    := PadR( oXML:XPathGetNodeValue( "/MATA020/MATA020_SA2/A2_COD/value"    ), TAMSX3( 'A2_COD'    )[ 1 ] ) 

      Local cA2Loja   := PadR( oXML:XPathGetNodeValue( "/MATA020/MATA020_SA2/A2_LOJA/value"   ), TAMSX3( 'A2_LOJA'   )[ 1 ] ) 

      Local lEmpty    := .T. // Indica se gera xml com campos nao obrigatorios vazios 

 

      DbSelectArea( 'SA2' ) 

      DbSetOrder( 1 ) 

      DbSeek( xFilial( 'SA2' ) + cA2COD + cA2LOJA ) 

 

      oModSA2:Activate() 

 

      cRet := oModSA2:GetXMLData(,,,,,lEmpty) 

 

      oModSA2:DeActivate() 

 

      RestArea( aArea ) 

 

...

  • Não
  • Sim