DICAS 2964 - WINDEV - DICAS 2964 - COMO FAZER UMA ROTINA MUDAR ALGO DADOS DO CLIENTE

---

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

---

---

ErpMatos - TgsSistemas

skype:amarildo.matos.informatica

email: amarildo.matos@gmail.com

whats: 51984197742

Youtube: Amarildo Matos

http://www.amarildomatos.com.br

https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com

https://www.pcsoft.fr/webinaires.htm?p=forumpcs

https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp

https://www.windev.com/windev/WD-Express.htm

https://www.windev.com/windevmobile/WM-Express.htm

http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.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