3468 - Exemplo de Web Services de Clientes para Regras LSP
Problema: Problema: Exemplo de Web Services de Clientes para Regras LSP
Rotina / Tela: Ao utilizar o WebService com.senior.g5.co.ger.cad.clientes.GravarClientes em regras LSP.
Solução: Solução 3468: Deve ser criado a linha para cada entidade que está sendo gerada no Web Service (Dados Gerais, Itens, Lotes, Parcelas, etc) conforme um exemplo simples de uma Regra LSP utilizando o Web Service com.senior.g5.co.ger.cad.clientes que segue abaixo.
Definir Alfa Retorno;
Definir Alfa Retorno2;
Definir interno.com.senior.g5.co.ger.cad.clientes.GravarClientes vCli;
@Criação dos dados gerais@
vCli.DadosGeraisCliente.CriarLinha();
@ 0 = inserindo, Informando o Código do Cliente = Alterando @
vCli.DadosGeraisCliente.codcli = 21692;
vCli.DadosGeraisCliente.nomcli = CLIENTE TESTE 001;
vCli.DadosGeraisCliente.apecli = TESTE001;
vCli.DadosGeraisCliente.TIPCLI = F;
vCli.DadosGeraisCliente.TIPMER = I;
vCli.DadosGeraisCliente.CLICON = S;
vCli.DadosGeraisCliente.SIGUFS = SC;
vCli.DadosGeraisCliente.CGCCPF = 11111111111;
vCli.DadosGeraisCliente.ENDCLI = RUA SÃO PAULO;
vCli.DadosGeraisCliente.SITCLI = A;
vCli.DadosGeraisCliente.INSEST = ISENTO;
vCli.DadosGeraisCliente.CEPCLI = 89012-001;
vCli.DadosGeraisCliente.NENCLI = 825;
vCli.DadosGeraisCliente.CPLEND = CASA;
vCli.DadosGeraisCliente.BAICLI = VICTOR KONDER;
vCli.DadosGeraisCliente.FONCLI = 33333333;
vCli.DadosGeraisCliente.FONCL2 = 22222222;
vCli.DadosGeraisCliente.CXAPST = 321;
vCli.DadosGeraisCliente.INTNET = senior@senior.com.br;
vCli.DadosGeraisCliente.EMANFE = senior@senior.com.br;
@Criação das definições@
vCli.DadosGeraisCliente.DefinicoesCliente.CriarLinha();
vCli.DadosGeraisCliente.DefinicoesCliente.codemp = codemp;
vCli.DadosGeraisCliente.DefinicoesCliente.codfil = codfil;
vCli.DadosGeraisCliente.DefinicoesCliente.codrep = 1;
vCli.DadosGeraisCliente.DefinicoesCliente.codtra = 1;
vCli.DadosGeraisCliente.DefinicoesCliente.codtpr = PV01;
vCli.DadosGeraisCliente.DefinicoesCliente.codcpg = 001;
vCli.DadosGeraisCliente.DefinicoesCliente.ciffob = C;
@Criação do endereço de entrega@
vCli.DadosGeraisCliente.EnderecosEntrega.CriarLinha();
vCli.DadosGeraisCliente.EnderecosEntrega.SeqEnt = 1;
vCli.DadosGeraisCliente.EnderecosEntrega.NomCli = CLIENTE TESTE 001;
vCli.DadosGeraisCliente.EnderecosEntrega.EndEnt = Rua São Paulo;
vCli.DadosGeraisCliente.EnderecosEntrega.CepEnt = 89012-001;
vCli.DadosGeraisCliente.EnderecosEntrega.CidEnt = Blumenau;
vCli.DadosGeraisCliente.EnderecosEntrega.EstEnt = SC;
vCli.DadosGeraisCliente.EnderecosEntrega.BaiEnt = Victor Konder;
vCli.DadosGeraisCliente.EnderecosEntrega.SitReg = A;
vCli.DadosGeraisCliente.EnderecosEntrega.NenEnt = 825;
vCli.DadosGeraisCliente.EnderecosEntrega.inient = 0;
vCli.DadosGeraisCliente.EnderecosEntrega.insent = ;
vCli.DadosGeraisCliente.EnderecosEntrega.cgcent = ;
vCli.ModoExecucao = 1; @ 1 = Local @
vCli.Executar();
ntipoRet = vCli.TipoRetorno;
Retorno = vCli.RetornosClientes.Retorno;
Retorno2 = vCli.MensagemRetorno;
ncodcli = vCli.RetornosClientes.codcli;
Rotina / Tela: Ao utilizar o WebService com.senior.g5.co.ger.cad.clientes.GravarClientes em regras LSP.
Solução: Solução 3468: Deve ser criado a linha para cada entidade que está sendo gerada no Web Service (Dados Gerais, Itens, Lotes, Parcelas, etc) conforme um exemplo simples de uma Regra LSP utilizando o Web Service com.senior.g5.co.ger.cad.clientes que segue abaixo.
Definir Alfa Retorno;
Definir Alfa Retorno2;
Definir interno.com.senior.g5.co.ger.cad.clientes.GravarClientes vCli;
@Criação dos dados gerais@
vCli.DadosGeraisCliente.CriarLinha();
@ 0 = inserindo, Informando o Código do Cliente = Alterando @
vCli.DadosGeraisCliente.codcli = 21692;
vCli.DadosGeraisCliente.nomcli = CLIENTE TESTE 001;
vCli.DadosGeraisCliente.apecli = TESTE001;
vCli.DadosGeraisCliente.TIPCLI = F;
vCli.DadosGeraisCliente.TIPMER = I;
vCli.DadosGeraisCliente.CLICON = S;
vCli.DadosGeraisCliente.SIGUFS = SC;
vCli.DadosGeraisCliente.CGCCPF = 11111111111;
vCli.DadosGeraisCliente.ENDCLI = RUA SÃO PAULO;
vCli.DadosGeraisCliente.SITCLI = A;
vCli.DadosGeraisCliente.INSEST = ISENTO;
vCli.DadosGeraisCliente.CEPCLI = 89012-001;
vCli.DadosGeraisCliente.NENCLI = 825;
vCli.DadosGeraisCliente.CPLEND = CASA;
vCli.DadosGeraisCliente.BAICLI = VICTOR KONDER;
vCli.DadosGeraisCliente.FONCLI = 33333333;
vCli.DadosGeraisCliente.FONCL2 = 22222222;
vCli.DadosGeraisCliente.CXAPST = 321;
vCli.DadosGeraisCliente.INTNET = senior@senior.com.br;
vCli.DadosGeraisCliente.EMANFE = senior@senior.com.br;
@Criação das definições@
vCli.DadosGeraisCliente.DefinicoesCliente.CriarLinha();
vCli.DadosGeraisCliente.DefinicoesCliente.codemp = codemp;
vCli.DadosGeraisCliente.DefinicoesCliente.codfil = codfil;
vCli.DadosGeraisCliente.DefinicoesCliente.codrep = 1;
vCli.DadosGeraisCliente.DefinicoesCliente.codtra = 1;
vCli.DadosGeraisCliente.DefinicoesCliente.codtpr = PV01;
vCli.DadosGeraisCliente.DefinicoesCliente.codcpg = 001;
vCli.DadosGeraisCliente.DefinicoesCliente.ciffob = C;
@Criação do endereço de entrega@
vCli.DadosGeraisCliente.EnderecosEntrega.CriarLinha();
vCli.DadosGeraisCliente.EnderecosEntrega.SeqEnt = 1;
vCli.DadosGeraisCliente.EnderecosEntrega.NomCli = CLIENTE TESTE 001;
vCli.DadosGeraisCliente.EnderecosEntrega.EndEnt = Rua São Paulo;
vCli.DadosGeraisCliente.EnderecosEntrega.CepEnt = 89012-001;
vCli.DadosGeraisCliente.EnderecosEntrega.CidEnt = Blumenau;
vCli.DadosGeraisCliente.EnderecosEntrega.EstEnt = SC;
vCli.DadosGeraisCliente.EnderecosEntrega.BaiEnt = Victor Konder;
vCli.DadosGeraisCliente.EnderecosEntrega.SitReg = A;
vCli.DadosGeraisCliente.EnderecosEntrega.NenEnt = 825;
vCli.DadosGeraisCliente.EnderecosEntrega.inient = 0;
vCli.DadosGeraisCliente.EnderecosEntrega.insent = ;
vCli.DadosGeraisCliente.EnderecosEntrega.cgcent = ;
vCli.ModoExecucao = 1; @ 1 = Local @
vCli.Executar();
ntipoRet = vCli.TipoRetorno;
Retorno = vCli.RetornosClientes.Retorno;
Retorno2 = vCli.MensagemRetorno;
ncodcli = vCli.RetornosClientes.codcli;