Histórico da Página

...

Ponto de Entrada:

GFEA1108

Descrição:Verificar qual a inscrição estadual correta a ser utilizada

Alterar para que o responsável pelo frete seja o emissor do documento

Localização:

Na função que exporta os dados do responsável pelo frete (Reg 317 e Reg515)

Programa Fonte:

GFEA110 - Exportar Notas Fiscais - Layout 3.1

GFEA110B - Exportar Notas Fiscais - Layout 5.0

Parâmetros:

NomeTipoDecscriçãoObrigatório
PARAMIXB[1]CaractereIntegerFilial do SistemaSim
PARAMIXB[2]CaractereCodigo Tipo DocumentoSim
PARAMIXB[3]CaractereEmissor do DocumentoSim
PARAMIXB[4]CaractereSerie do DocumentoSim
PARAMIXB[5]CaractereNumero do DocumentoSim
Indicação do layout (317 ou 515)Sim

Retorno:

Nome	Tipo	Descrição	Obrigatório
cRet	String	Inscrição Estadual RG	Não

Bloco de código

language	delphi
title	Exemplo: GFEA1108
linenumbers	true

#INCLUDE "PROTHEUS.CH"

User Function GFEA1108()
	local cRet := ''
	local nLayout := PARAMIXB[1]
	
	if nLayout == 515
		if !EMPTY((cAliasSQL)->GW1_EMISDC)
			cRet := (cAliasSQL)->GW1_EMISDC
		EndIf		
	Elseif nLayout == 317
		if !EMPTY(GW1->GW1_EMISDC)
			cRet := GW1->GW1_EMISDC
		EndIf
	EndIf
return cRet

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave