2 replies to this topic

[chaja]

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

<?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:

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

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
__________________
Luis A.Roldan (- Mar del Plata , Argentina- Te:472-4801)

[Sergio]

La respuesta XML esta vacia o llena? Siempre que lees esta vacio el nodo o solo en ciertos nodos o ciertas veces? has mirado a ver cuantos nodos lee y cuales estan llenos/vacios? No estará leyendo todos los nodos "colgando" de un nodo master (la estructura del XML puede no ser la que supones)?

Te toca investigarlo a ti mismo, sin acceso a la informacion de debug es dificil acertar.

[chaja]

Sergio... Gracias por tu tiempo...

si el xml tiene datos, fue algo que revise... fijate que tengo comentado esto

  // XMLDocument1.SaveToFile('C:\RespuestaFiscal.xml');

para saber si estaba lleno el XML, y son los datos que puse al principio

Luis