Tweet
Hola a Todos
Estoy haciendo un loop donde debe colocar la sigla AR cuando en el campo KNB1-TLFNS = AR pero cuando trae varios registros del mismo RIF el primer valor sale en blanco del segundo al ultimo si trae la asignacion = AR. Que puedo revisar.
Muchas Gracias.
FORM IMPRIMIR_LIBRO.
IND_E2 = '1'.
FORMAT RESET.
SORT DOCUM BY BLDAT NOTAC NOTAD XBLNR TITRA.
LOOP AT DOCUM.
SELECT SINGLE *
FROM KNB1
WHERE KUNNR = DOCUM-KUNNR
AND BUKRS = SOCIE
AND TLFNS = 'AR'.
" busca_agente_ar"
OPER = OPER + 1.
OPET = OPER.
KBETR_R = DOCUM-KBETR.
WRITE: /001 '|', 002 OPET NO-ZERO RIGHT-JUSTIFIED, " N° Operación
007 '|', 008 DOCUM-BLDAT+6(2), 010 '/', " Día doc.
011 DOCUM-BLDAT+4(2), 013 '/', " Mes doc.
014 DOCUM-BLDAT+2(2), " Año doc.
016 '|', 017 DOCUM-STCD1(12), " RIF deudor
029 '|', 030 DOCUM-NAME1(30), " Nombre deudor
060 '|', 061 DOCUM-NUPLA(10), " N° Planilla Exp
071 '|', 072 DOCUM-XBLNR(10), " N° de factura
082 '|', 083 DOCUM-ZUONR(10), " N° de control
093 '|', 094 DOCUM-NOTAD(10), " N° de nota deb
104 '|', 105 DOCUM-NOTAC(10), " N° de nota cred
115 '|', 116 DOCUM-TITRA, " Tipo Transacción
122 '|', 123 DOCUM-F_AFE(10), " N° Doc. afectado
133 '|', 134 DOCUM-DMBTR, " Monto total doc
150 '|', 151 DOCUM-EXENTO, " Monto exento
167 '|', 168 DOCUM-HWBAS, " Base imponible
184 '|', 185 KBETR_R RIGHT-JUSTIFIED, " Alícuota
190 '|', 191 DOCUM-HWSTE, " Monto IVA
207 '|', 208 DOCUM-WT_QBSHH, " Monto ret. IVA
224 '|', 225 DOCUM-PEIVA, " IVA percibido
* 241 '|', TEXT-R49, " Valor Campo
241 '|', 242 KNB1-TLFNS, " Valor Campo
244 '|'. " Ultima linea del cuadro
BUKRS_V = SOCIE. BELNR_V = DOCUM-BELNR. GJAHR_V = DOCUM-GJAHR.
HIDE: BUKRS_V, BELNR_V, GJAHR_V.
CLEAR KNB1.
PERFORM CALCULO_TOTALES.
AT LAST. " TOTALES
SUM.
WRITE SY-ULINE(241).
WRITE: /114 TEXT-R48,
134 DOCUM-DMBTR, " Monto total doc.
151 DOCUM-EXENTO, " Monto exento
168 DOCUM-HWBAS, " Base imponible
191 DOCUM-HWSTE, " Monto IVA
208 DOCUM-WT_QBSHH, " Monto ret. IVA
225 DOCUM-PEIVA. " IVA percibido
PERFORM IMPRIMIR_TOTALES.
ENDAT.
ENDLOOP.
ENDFORM. " imprimir_libro
Estoy haciendo un loop donde debe colocar la sigla AR cuando en el campo KNB1-TLFNS = AR pero cuando trae varios registros del mismo RIF el primer valor sale en blanco del segundo al ultimo si trae la asignacion = AR. Que puedo revisar.
Muchas Gracias.
FORM IMPRIMIR_LIBRO.
IND_E2 = '1'.
FORMAT RESET.
SORT DOCUM BY BLDAT NOTAC NOTAD XBLNR TITRA.
LOOP AT DOCUM.
SELECT SINGLE *
FROM KNB1
WHERE KUNNR = DOCUM-KUNNR
AND BUKRS = SOCIE
AND TLFNS = 'AR'.
" busca_agente_ar"
OPER = OPER + 1.
OPET = OPER.
KBETR_R = DOCUM-KBETR.
WRITE: /001 '|', 002 OPET NO-ZERO RIGHT-JUSTIFIED, " N° Operación
007 '|', 008 DOCUM-BLDAT+6(2), 010 '/', " Día doc.
011 DOCUM-BLDAT+4(2), 013 '/', " Mes doc.
014 DOCUM-BLDAT+2(2), " Año doc.
016 '|', 017 DOCUM-STCD1(12), " RIF deudor
029 '|', 030 DOCUM-NAME1(30), " Nombre deudor
060 '|', 061 DOCUM-NUPLA(10), " N° Planilla Exp
071 '|', 072 DOCUM-XBLNR(10), " N° de factura
082 '|', 083 DOCUM-ZUONR(10), " N° de control
093 '|', 094 DOCUM-NOTAD(10), " N° de nota deb
104 '|', 105 DOCUM-NOTAC(10), " N° de nota cred
115 '|', 116 DOCUM-TITRA, " Tipo Transacción
122 '|', 123 DOCUM-F_AFE(10), " N° Doc. afectado
133 '|', 134 DOCUM-DMBTR, " Monto total doc
150 '|', 151 DOCUM-EXENTO, " Monto exento
167 '|', 168 DOCUM-HWBAS, " Base imponible
184 '|', 185 KBETR_R RIGHT-JUSTIFIED, " Alícuota
190 '|', 191 DOCUM-HWSTE, " Monto IVA
207 '|', 208 DOCUM-WT_QBSHH, " Monto ret. IVA
224 '|', 225 DOCUM-PEIVA, " IVA percibido
* 241 '|', TEXT-R49, " Valor Campo
241 '|', 242 KNB1-TLFNS, " Valor Campo
244 '|'. " Ultima linea del cuadro
BUKRS_V = SOCIE. BELNR_V = DOCUM-BELNR. GJAHR_V = DOCUM-GJAHR.
HIDE: BUKRS_V, BELNR_V, GJAHR_V.
CLEAR KNB1.
PERFORM CALCULO_TOTALES.
AT LAST. " TOTALES
SUM.
WRITE SY-ULINE(241).
WRITE: /114 TEXT-R48,
134 DOCUM-DMBTR, " Monto total doc.
151 DOCUM-EXENTO, " Monto exento
168 DOCUM-HWBAS, " Base imponible
191 DOCUM-HWSTE, " Monto IVA
208 DOCUM-WT_QBSHH, " Monto ret. IVA
225 DOCUM-PEIVA. " IVA percibido
PERFORM IMPRIMIR_TOTALES.
ENDAT.
ENDLOOP.
ENDFORM. " imprimir_libro
Comentario