*>CbtesAsoc
           *> New 20-09-2023 agrego Notas de Creditos
             IF  FACTURACION-TIPO = "S" *> Nota de Credito 
                  move 1 to fe-numero 
                  INVOKE FACTURA-APP "SET-F1DetalleCbtesAsocItemCantidad" USING fe-numero 
                 
                     *>CbtesAsoc TIPO
                     IF EMP-TIPO-RESP = 1 THEN      
 
                          if cli-cod-iva = 1 or cli-cod-iva  = 4 then
                                 move 1 to w-CbtesAsocTipo *> para factura A
                          end-if 
                          if cli-cod-iva = 2 or cli-cod-iva  = 3 or cli-cod-iva = 5 then
                                 move 6 to w-CbtesAsocTipo *> para factura B
                          end-if 
 
                   END-IF       
                     IF EMP-TIPO-RESP = 2 THEN      
    
                                 move 11 to w-CbtesAsocTipo *> para factura C
                   END-IF       
                     *>CbtesAsoc TIPO
                                 INVOKE FACTURA-APP "SET-F1DetalleCbtesAsocTipo" USING w-CbtesAsocTipo 
                     *>CbtesAsoc PtoVta
                                         INVOKE FACTURA-APP "SET-F1DetalleCbtesAsocPtoVta" USING w-CabeceraPtoVta
                     *>CbtesAsoc NRO
                                         move CL-NUMERO-NC to w-AsocNroS
                                         INVOKE FACTURA-APP "SET-F1DetalleCbtesAsocNroS" USING w-AsocNroS 
                     *>CbtesAsoc CUIT EMISOR  
                                         INVOKE FACTURA-APP "SET-F1DetalleCbtesAsocCUIT" USING EMPF-CUIT                                                         
                     *>CbtesAsoc CBTEFECHA                                     
                                         move FE-FECHA  to w-DetalleCbteFch *> fecha de hoy
                                         INVOKE FACTURA-APP "SET-F1DetalleCbtesAsocFecha" USING w-DetalleCbteFch 
             ELSE
                  move 0 to fe-numero 
                  INVOKE FACTURA-APP "SET-F1DetalleCbtesAsocItemCantidad" USING fe-numero     
             END-IF      

<?xml version="1.0" encoding="utf-8"?>
<FECAERequest xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <FeCabReq xmlns="http://ar.gov.afip.dif.FEV1/">
    <CantReg>1</CantReg>
    <PtoVta>1</PtoVta>
    <CbteTipo>8</CbteTipo>
  </FeCabReq>
  <FeDetReq xmlns="http://ar.gov.afip.dif.FEV1/">
    <FECAEDetRequest>
      <Concepto>1</Concepto>
      <DocTipo>99</DocTipo>
      <DocNro>0</DocNro>
      <CbteDesde>2</CbteDesde>
      <CbteHasta>2</CbteHasta>
      <CbteFch>20230920</CbteFch>
      <ImpTotal>30</ImpTotal>
      <ImpTotConc>0</ImpTotConc>
      <ImpNeto>26.36</ImpNeto>
      <ImpOpEx>0</ImpOpEx>
      <ImpTrib>0</ImpTrib>
      <ImpIVA>3.64</ImpIVA>
      <MonId>PES</MonId>
      <MonCotiz>1</MonCotiz>
      <CbtesAsoc>
        <CbteAsoc>
          <Tipo>0</Tipo>
          <PtoVta>0</PtoVta>
          <Nro>0</Nro>
        </CbteAsoc>
      </CbtesAsoc>
      <Iva>
        <AlicIva>
          <Id>5</Id>
          <BaseImp>8.26</BaseImp>
          <Importe>1.74</Importe>
        </AlicIva>
        <AlicIva>
          <Id>4</Id>
          <BaseImp>18.1</BaseImp>
          <Importe>1.9</Importe>
        </AlicIva>
      </Iva>
    </FECAEDetRequest>
  </FeDetReq>
</FECAERequest>

<Resultado>R</Resultado>
      <Observaciones>
        <Obs>
          <Code>10057</Code>
          <Msg>De enviarse el tag CbtesAsoc debe enviarse Tipo mayor a 0</Msg>
        </Obs>
      </Observaciones>

  MOVE 0 TO fe-numero
  INVOKE  FACTURA-APP "SET-f1IndiceItem" USING fe-numero