Windev21 Aulas,Estudos e Desenvolvimento: AULA 1269 COMANDOS 019 GOTO

quinta-feira, 5 de outubro de 2017

IF EDT_Codigo_tomador<>0 THEN
HReadSeekFirst(empresa,id_empresa,gnEmpresaCodigo)
HReadSeekFirst(cliente,cliente.id_empresa_cliente,EDT_Codigo_tomador)
STC_NomeTomador=""
IF HFound(cliente) THEN
STC_NomeTomador = NoSpace(cliente.razao_social_nome)
STC_NomeTomador+=" - " + cliente.endereco_cidade +" - " + NoSpace(cliente.endereco_uf)
IF cliente.endereco_uf=empresa.endereco_uf THEN
EDT_Id_operacao=empresa_parametro_conhecimento.CFOP
EDT_NatOp=empresa_parametro_conhecimento.natOp
ELSE
EDT_Id_operacao=empresa_parametro_conhecimento.cfop_fora_estado
EDT_NatOp=empresa_parametro_conhecimento.natop_fora_Estado
END
COMBO_Termino_uf_fim=cliente.endereco_uf
ListSelectPlus(COMBO_Termino_uf_fim)
EDT_Termino_xmun_fim=cliente.endereco_cidade
EDT_Termino_cmun_fim=cliente.endereco_cmun
VERIFICA_TOMADOR()
ELSE
Info("Nao Existe Tomador")
ReturnToCapture(EDT_Codigo_tomador)
END
END

INTERNAL PROCEDURE VERIFICA_TOMADOR()

verificatomador:
SWITCH cliente.indicador_tomador
CASE 1,2,9
Info("CORRETO")
OTHER CASE
_indIEToma is string=""
s_texto is string=[
INFORMAR indIEToma
======================================================
Cliente: #cliente.razao_social_nome#
Cnpj: #cliente.cnpj_cpf#
Inscricao Estadual: #cliente.inscricao_estadual#
======================================================
Indicador do papel do tomador na prestação do serviço
1 – Contribuinte ICMS
2 – Contribuinte isento de inscrição
9 – Não Contribuinte
]
s_texto=Replace(s_texto,"#cliente.razao_social_nome#",cliente.razao_social_nome)
s_texto=Replace(s_texto,"#cliente.cnpj_cpf#",cliente.cnpj_cpf)
s_texto=Replace(s_texto,"#cliente.inscricao_estadual#",cliente.inscricao_estadual)
Input(s_texto,_indIEToma)
cliente.indicador_tomador=_indIEToma
HModify(cliente)

GOTO verificatomador

END

END