Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus
Segmento:Varejo
Módulo:SigaLoja (Controle de Loja)
Função:

RmiEnvProtheusObj

RmiGrvMsgPubLiveObj

Ticket:Não há.
Story:DVARLOJ1-6549

02. SITUAÇÃO/REQUISITO

Buscar as Notas Fiscais de Entrada do tipo Devolução disponibilizadas no Live Connector e publica-las na tabela MHQ - Mensagens Publicas do Protheus de modo que o Protheus efetue a transmissão ao Sefaz.

03. SOLUÇÃO

Foi modificado o processo NOTA DE ENTRADA do tipo Busca, para analisar o conteúdo da TAG SituacaoIntegracaoNFe do Live Connector para assim definir as notas que serão transmitidas pelo Protheus.

Caso o conteúdo da TAG SituacaoIntegracaoNFe seja diferente de "Integrada" o processo de transmissão para a SEFAZ será feito pelo Protheus.

Para este processo ser foi necessário alterar o Layout de Publicação como definido abaixo:

Layout Publi
{
	"F1_FILIAL": "&self:DePara('SM0', self:oRegistro:_Destinatario:Text, 1, 0)",
	"F1_CHVNFE": "&self:oRegistro:_ChaveNFe:Text",
	"F1_EMISSAO": "&DtoS( CtoD( SubStr(self:oRegistro:_DataEmissao:Text, 1, 10) ) )",
	"F1_FORNECE": "&self:DePara('SA1', self:oRegistro:_Emitente:Text, 2, 0)",
	"F1_LOJA": "&SuperGetMv('MV_LOJPAD', .F., '01')",
	"F1_DOC": "&self:oRegistro:_NumeroNotaFiscal:Text",
	"F1_SERIE": "&self:oRegistro:_Serie:Text",
	"F1_COND": "001",
	"F1_VALMERC": "&self:oRegistro:_ValorLiquido:Text",
	"F1_VALBRUT": "&self:oRegistro:_ValorBruto:Text",
	"F1_TIPO": "D",
	"F1_FORMUL": "S",
	"F1_DESCONT": "&self:oRegistro:_ValorDesconto:Text",
	"F1_DTDIGIT": "&DtoS( CtoD( SubStr(self:oRegistro:_DataMovimento:Text, 1, 10) ) )",
	"F1_ESPECIE": "SPED",
	"F1_MSEXP": "&DtoS(Date())",
	"F1_HORA": "&SubStr(self:oRegistro:_DataMovimento:Text, 12, 8)",
	"SD1": [
		{
			"D1_FILIAL": "&self:DePara('SM0', self:oRegistro:_Destinatario:Text, 1, 0)",
			"D1_COD": "&self:DePara('SB1', self:oRegistro:_Itens:_Lc_ItemNotaFiscal[nItem]:_CodigoProduto:Text, 2, 0)",
			"D1_ITEM": "&Right( AllTrim(self:oRegistro:_Itens:_Lc_ItemNotaFiscal[nItem]:_NumeroItem:Text), TamSx3('D1_ITEM')[1])",
			"D1_FORNECE": "&self:DePara('SA1', self:oRegistro:_Emitente:Text, 2, 0)",
			"D1_LOJA": "&SuperGetMv('MV_LOJPAD', .F., '01')",
			"D1_QUANT": "&self:oRegistro:_Itens:_Lc_ItemNotaFiscal[nItem]:_Quantidade:Text",
			"D1_VUNIT": "&self:oRegistro:_Itens:_Lc_ItemNotaFiscal[nItem]:_PrecoUnitario:Text",
			"D1_TOTAL": "&self:oRegistro:_Itens:_Lc_ItemNotaFiscal[nItem]:_ValorTotalItem:Text",
			"D1_LOCAL": "&SuperGetMv('MV_LOCPAD', .F., '01')",
			"D1_DOC": "&self:oRegistro:_NumeroNotaFiscal:Text",
			"D1_UM": "&self:DePara('SAH', self:oRegistro:_Itens:_Lc_ItemNotaFiscal[nItem]:_UnidadeMedida:Text, 2, 0)",
			"D1_TES": "&SuperGetMv('MV_TESTROC', .F., '')",
			"D1_CF": "&StrTran(self:oRegistro:_Itens:_Lc_ItemNotaFiscal[nItem]:_OperacaoFiscal:Text, '.', '')",
			"D1_EMISSAO": "&DtoS( CtoD( SubStr(self:oRegistro:_DataEmissao:Text, 1, 10) ) )",
			"D1_DTDIGIT": "&DtoS( CtoD( SubStr(self:oRegistro:_DataEmissao:Text, 1, 10) ) )",
			"D1_TIPO": "D",
			"D1_FORMUL": "S",
			"D1_SERIE": "&self:oRegistro:_Serie:Text",
			"D1_TP": "&self:DePara('SAH', self:oRegistro:_Itens:_Lc_ItemNotaFiscal[nItem]:_UnidadeMedida:Text, 2, 0)",
			"D1_NFORI": "&self:oRegistro:_Itens:_Lc_ItemNotaFiscal[nItem]:_NumeroDoctoOrigem:Text",
			"D1_SERIORI": "&self:LayEstAuto('LG_SERIE', SubStr(self:oRegistro:_Itens:_Lc_ItemNotaFiscal[nItem]:_ChaveAcessoOrigem:Text, 21, 2), self:oRegistro:_Itens:_Lc_ItemNotaFiscal[nItem]:_SerieDoctoOrigem:Text, self:oRegistro:_Itens:_Lc_ItemNotaFiscal[nItem]:_SerieEquipamentoOrigem:Text,self:oRegistro:_Destinatario:Text)",
			"D1_ITEMORI": "&self:oRegistro:_Itens:_Lc_ItemNotaFiscal[nItem]:_ItemDoctoOrigem:Text"
		}
	]
}

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS