Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-09-2014
Chaja Chaja is offline
No confirmado
 
Registrado: ago 2004
Ubicación: Mar del Plata
Posts: 238
Poder: 0
Chaja Va por buen camino
Lectura de XML

Hola:
bien, estoy tratando de leer un xml, que me viene desde un web service de la administracion federal de impuesto publicos AFIP en Argentina. Es la respuesta a una consulta de facturas Electronicas. Este XML de respuesta es asi:

<?xml version="1.0" encoding="UTF-8"?>
-<soap:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">-<soap:Body>-<FECompConsultarResponse xmlns="http://ar.gov.afip.dif.FEV1/">-<FECompConsultarResult>-<ResultGet><Concepto>3</Concepto><DocTipo>80</DocTipo><DocNro>30683409991</DocNro><CbteDesde>7</CbteDesde><CbteHasta>7</CbteHasta><CbteFch>20140217</CbteFch><ImpTotal>524.54</ImpTotal><ImpTotConc>0</ImpTotConc><ImpNeto>433.5</ImpNeto><ImpOpEx>0</ImpOpEx><ImpTrib>0</ImpTrib><ImpIVA>91.04</ImpIVA><FchServDesde>20140217</FchServDesde><FchServHasta>20140217</FchServHasta><FchVtoPago>20140217</FchVtoPago><MonId>PES</MonId><MonCotiz>1</MonCotiz>-<Iva>-<AlicIva><Id>5</Id><BaseImp>433.5</BaseImp><Importe>91.04</Importe></AlicIva></Iva><Resultado>A</Resultado><CodAutorizacion>64072180426393</CodAutorizacion><EmisionTipo>CAE</EmisionTipo><FchVto>20140227</FchVto><FchProceso>20140217184340</FchProceso><PtoVta>5</PtoVta><CbteTipo>1</CbteTipo></ResultGet></FECompConsultarResult></FECompConsultarResponse></soap:Body></soap:Envelope>

la carga del documento lo hago con un XMLDocument.
Bueno lo que quier es leer cierto valores que me devuelve, como ser el nro de comprobante, el monto sin iva, el iva y demas
El web service no tiene una funcion para leer un grupo de comprobantes asi que hago una cosnulta tantas veces como comprobantes quiero de esta forma:
Código Delphi [-]
procedure TFormFiscalizacionLote.btListarComprobClick(Sender: TObject);
var aux:String;
par1,par2:WideString;
I,TipoCpbte,PuntoVta,NroDesde,NroHasta:Integer;
  Nro: Integer;
begin
  inherited;

  lvGeneral.Clear;

  Aux:= CDSEmpresa.FieldByName('cuit').AsString;
  while Pos('-',Aux)<>0 do
    delete(Aux,Pos('-',Aux),1);

  wsfev1.Reset;
  wsfev1.CUIT := StrToFloat(Aux); //FCuitVdor;  //20129063662; // Cuit del vendedor
  wsfev1.URL  := URLWSW;

  if wsfev1.login(FormFiscalizacionLote.CertificadoElectronico,FormFiscalizacionLote.ClaveElectronica,URL  WSAA) then
    begin
      wsfev1.Reset;
      PuntoVta:= StrToInt(edPrefijo.Text);
      NroDesde     := StrToInt(edDesde.Text);
      NroHasta     := StrToInt(edHasta.Text);
      lvGeneral.Clear;

      for Nro := NroDesde to NroHasta do
        begin
          if (cbTp.Text='FC') and (cbLet.Text='A') Then
              TipoCpbte:=1
            else
              if (cbTp.Text='FC') and (cbLet.Text='B') Then
               TipoCpbte:=6
              else
                if (cbTp.Text='NC') and (cbLet.Text='A') Then
                  TipoCpbte:=3
                else
                  if (cbTp.Text='NC') and (cbLet.Text='B') Then
                    TipoCpbte:=8
                  else
                    if (cbTp.Text='FO') and (cbLet.Text='A') Then
                        TipoCpbte:=5
                    else
                       if (cbTp.Text='FO') and (cbLet.Text='B') Then
                           TipoCpbte:=10;
          if not wsfev1.CmpConsultar(TipoCpbte, PuntoVta, Nro,par1,par2) then
            ShowMessage (wsfev1.ErrorDesc)
          else
            begin
              XMLDocument1.XML.Text :=wsfev1.XMLResponse;
              XMLDocument1.Active:=True;
             // XMLDocument1.SaveToFile('C:\RespuestaFiscal.xml');
              NodoXML:=XMLDocument1.DocumentElement.ChildNodes.Nodes[0];
              DisplayNodoRenglon(NodoXML);
//              DisplayNodo(NodoXML);
           end;
        end;
    end;
end;


y DsiplayNodo() es

Código Delphi [-]
procedure TFormFiscalizacionLote.DisplayNodoRenglon(Nodo:IXMLNode  );
var i:Integer;
Cadena:String;
begin
  Lista:=lvGeneral.Items.Add;
//  Nodo.ChildNodes.FindNode('FchServDesde').NodeValue;
  Cadena:=Nodo.ChildNodes['FchServDesde'].Text;
  Lista.SubItems.Add(Cadena);

  Lista.SubItems.Add(cbTipo.Text);
  Lista.SubItems.Add(cbTipo.Text);
  Lista.SubItems.Add(cbLet.Text);

//  Nodo.ChildNodes.FindNode('PtoVta');
  Lista.SubItems.Add(Copy('0000',1,4-Length(Nodo.ChildNodes['PtoVta'].Text))+Nodo.ChildNodes['PtoVta'].Text);

//  Nodo.ChildNodes.FindNode('CbteDesde');
  Lista.SubItems.Add(Copy('00000000',1,8-Length(Nodo.ChildNodes['CbteDesde'].Text))+Nodo.ChildNodes['CbteDesde'].Text);

//  Nodo.ChildNodes.FindNode('DocNro');
  Lista.SubItems.Add(Nodo.ChildNodes['DocNro'].Text);

//  Nodo.ChildNodes.FindNode('ImpNeto');
  Lista.SubItems.Add(Nodo.ChildNodes['ImpNeto'].Text);

//  Nodo.ChildNodes.FindNode('ImpIva');
  Lista.SubItems.Add(Nodo.ChildNodes['ImpIva'].Text);

//  Nodo.ChildNodes.FindNode('ImpTotal');
  Lista.SubItems.Add(Nodo.ChildNodes['ImpTotal'].Text);

//  Nodo.ChildNodes.FindNode('CodAutorizacion');
  Lista.SubItems.Add(Nodo.ChildNodes['CodAutorizacion'].Text);

//  Nodo.ChildNodes.FindNode('FchProceso');
  Lista.SubItems.Add(Nodo.ChildNodes['FchProceso'].Text);

end;

a medido que voy leyendo los cargo en un ListView.
parceria que todo bien, pero cuando hago la lactura de cada nodo, estoy me tran datos vacios.

me pueden orientar donde esta el error???

Gracias
Responder Con Cita
  #2  
Antiguo 23-02-2016
Hopeco Hopeco is offline
Registrado
NULL
 
Registrado: feb 2016
Posts: 1
Poder: 0
Hopeco Va por buen camino
Estimado...veo que el codigo es correcto, es mas lo he probado porque tengo el mismo inconveniente.
Has podido solucionar este problema???
Gracias
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Lectura XML fjcg02 [GH Freebrary] 4 28-02-2014 21:42:40
Lectura de Dni electrónico pjmedina Varios 4 27-02-2009 12:53:55
Lectura de variables rauros API de Windows 20 17-07-2008 16:50:12
Test de lectura Héctor Randolph Humor 9 26-10-2005 01:11:40


La franja horaria es GMT +2. Ahora son las 10:44:49.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi