Bom Dia/Boa Tarde/Boa Noite
https://youtu.be/lwKJGuB3kxY
DICAS 2964 - WINDEV - DICAS 2964 - COMO FAZER UMA ROTINA MUDAR ALGO DADOS DO CLIENTE
ASSUNTOS:
1. MOSTRANDO O QUE PRETENDO FAZER
2. MOSTRANDO A ROTINA PARA TROCAR ALGUM DADOS DO CADASTRO
3. FUNCOES UTILIZADAS:
4. INPUT
HReadSeekFirst
FOR EACH
Trace
HModify
IF THEN ELSE END
https://windevdesenvolvimento.blogspot.com/2020/07/dicas-2964-windev-dicas-2964-como-fazer.html
PROCEDURE mudar_Frete_conta_cliente()
// 3 07 2020
// amarildo fez rotina para mudar o frete do cliente
//tabela cliente utilitarios
sPERGUNTA is string=""
Input("Digite SIM , SE QUIZER QUE MUDE FRETE POR CONTA CLIENTE",sPERGUNTA)
IF sPERGUNTA="SIM" OR sPERGUNTA="sim" THEN
sTipo is string=""
HReadSeekFirst(empresa_parametro_nfe,Id_empresa,gnEmpresaCodigo)
IF empresa_parametro_nfe.nfe_frete_por_conta_modfrete>=0 THEN
sTipo=empresa_parametro_nfe.nfe_frete_por_conta_modfrete
END
Input("0=REM 1=DEST 2=TERC 3=TRANP 4=TRANS 9=SEM OCOR",sTipo)
IF sTipo="0" OR sTipo="1" OR sTipo="2" OR sTipo="3" OR sTipo="4" OR sTipo="9" THEN
FOR EACH cliente
Trace(cliente.razao_social_nome)
IF cliente.frete_por_conta_modFrete=sTipo THEN
ELSE
cliente.frete_por_conta_modFrete=sTipo
HModify(cliente)
END
END
END
END
