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;