https://www.youtube.com/watch?v=p9GS_u5I14w
http://doc.windev.com/en-US/?1510005&name=GOTO
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
Windev Curso Comandos/1 ... Condição - If
Windev Curso Comandos/2 ... Condição - Switch
Windev Curso Comandos/3 ... Loop
Windev Curso Comandos/4 ... WHILE
Windev Curso Comandos/5 ... For
Windev Curso Comandos/6 ... For Tabelas
Windev Curso Comandos/7 ... For String
Windev Curso Comandos/8 ... For Table
Windev Curso Comandos/9 ... Stop
Windev Curso Comandos/10 ... BrowserRunApp
Windev Curso Comandos/10 ... With
Windev Curso Comandos/11 ... Executecode
Procedure - Duas Maneiras - Comandos 12/...
PROCEDURES 2 MANEIRAS MANDAR INFORMACOES - COMANDOS 013 / AULA 1068
ARREDONDAMENTO - COMANDOS 014 / AULA 1193
MAIOR VALOR - MAX - COMANDOS 015 / AULA 1194
MINIMO VALOR - MIN - COMANDOS 016 / AULA 1195
RoundDown - ARREDONDAMENTO INFERIRO - COMANDOS 017 - AULA 1196
InTestMode - como Saber se estamos no teste - COMANDOS 018 - AULA 1267
GOTO - VA PARA - COMANDOS 019 - AULA 1269
WINDOWS - Modified (Property) - PUBLICA - WINDEV 23 - COMANDOS 21 -
INPUT - DIGITAR CAMPOS MANUAL - 1880 - PUBLICA - WINDEV_23 - COMANDOS 22 -
INPUT - DIGITAR CAMPOS MANUAL - 1880 - PUBLICA - WINDEV_23 - COMANDOS 22 -
