Tweet
Hola a Todos !!!
Necesito enviar por correo comprobantes de retencion. El programa actualmente esta asi como detallo pero al momento de enviar pór correo me mezcla la info de todos los codigos y se lo envia a todos los email mezclados, que puedo revisar.
Muchas Gracias.
DATA: BEGIN OF DOCUM OCCURS 0,
CTNUMBER LIKE WITH_ITEM-CTNUMBER, " No. Comprobante
BELNR LIKE BSAK-BELNR, " No. Documento
BUZEI LIKE BSAK-BUZEI, " No. posición del doc.
GJAHR LIKE BSAK-GJAHR, " Ejercicio del Documento
BLDAT LIKE BKPF-BLDAT, " Fecha del Documento
BUDAT LIKE BKPF-BUDAT, " Fecha de Contabilización
XBLNR LIKE BKPF-XBLNR, " No. de Factura
ZUONR LIKE BSAK-ZUONR, " No. de Control
USNAM LIKE BKPF-USNAM, " Código de Usuario
AUGBL LIKE WITH_ITEM-AUGBL, " Doc. Compensación
AUGDT LIKE WITH_ITEM-AUGDT, " Fecha Compensación
TIDOC(1) TYPE C, " Tipo de Documento
TITRA(8) TYPE C, " Tipo de Transacción
NOTAD LIKE BKPF-XBLNR, " No. Nota de Débito
NOTAC LIKE BKPF-XBLNR, " No. Nota de Crédito
F_AFE LIKE BKPF-XBLNR, " No. Factura Afectada
REBZG LIKE BSAK-REBZG, " Factura SAP Relacionada
AWTYP LIKE BKPF-AWTYP, " Tipo de Operación
GLVOR LIKE BKPF-GLVOR, " Operación FI-SL
STGRD LIKE BKPF-STGRD, " Motivo de Anulación
STBLG LIKE BKPF-STBLG, " No. Doc. Anulación
LIFNR LIKE LFA1-LIFNR, " Código del Acreedor
XCPDK LIKE LFA1-XCPDK, " Ind. Acreedor Ocasional
NAME1 LIKE LFA1-NAME1, " Nombre del Acreedor-1
NAME2 LIKE LFA1-NAME2, " Nombre del Acreedor-2
STCD1 LIKE LFA1-STCD1, " RIF del Acreedor
WITHT LIKE WITH_ITEM-WITHT, " Tipo de Retención
WT_POSTM LIKE T059P-WT_POSTM, " Ind. Posteo - retención
WT_WITHCD LIKE WITH_ITEM-WT_WITHCD, " Indicador de Retención
MWSKZ LIKE BSAK-MWSKZ, " Indicador de IVA
KBETR LIKE BSET-KBETR, " % de IVA
QSATZ LIKE WITH_ITEM-QSATZ, " % Retención IVA
SHKZG LIKE BSAK-SHKZG, " Indicador Debe/Haber
DMBTR LIKE BSAK-DMBTR, " Total Factura
EXENTO LIKE BSAK-DMBTR, " Monto Exento
HWBAS LIKE BSAK-DMBTR, " Base Imponible
HWSTE LIKE BSAK-DMBTR, " Monto del IVA
WT_QSSHH LIKE BSAK-DMBTR, " Base retención IVA
WT_QBSHH LIKE BSAK-DMBTR, " Monto IVA Retenido
END OF DOCUM.
FORM IMPRIMIR_REPOR.
FORMAT RESET.
SORT DOCUM BY CTNUMBER TITRA XBLNR.
LOOP AT DOCUM.
AT NEW CTNUMBER.
NEW-PAGE.
ON_OFF = 1.
CONT_OP = 0.
SY-PAGNO = 1.
ENDAT.
CONT_OP = CONT_OP + 1.
*------------------ CAMBIA LA INTENSIDAD DE LA LINEA ------------------*
IF ON_OFF = 1.
ON_OFF = 0.
FORMAT COLOR COL_NORMAL INTENSIFIED ON.
ELSE.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
ON_OFF = 1.
ENDIF.
*----------------------------------------------------------------------*
WRITE: /002 CONT_OP NO-ZERO,
008 DOCUM-BLDAT USING EDIT MASK '__/__/____',
019 DOCUM-XBLNR RIGHT-JUSTIFIED,
040 DOCUM-ZUONR RIGHT-JUSTIFIED,
061 DOCUM-NOTAD RIGHT-JUSTIFIED,
082 DOCUM-NOTAC RIGHT-JUSTIFIED,
103 DOCUM-TITRA CENTERED,
115 DOCUM-F_AFE RIGHT-JUSTIFIED,
136 DOCUM-DMBTR,
153 DOCUM-EXENTO,
170 DOCUM-HWBAS,
187(10) DOCUM-KBETR RIGHT-JUSTIFIED,
198 DOCUM-HWSTE,
217 DOCUM-WT_QBSHH.
WRITE: 001 SY-VLINE,
007 SY-VLINE,
018 SY-VLINE,
039 SY-VLINE,
060 SY-VLINE,
081 SY-VLINE,
102 SY-VLINE,
114 SY-VLINE,
135 SY-VLINE,
152 SY-VLINE,
169 SY-VLINE,
186 SY-VLINE,
197 SY-VLINE,
214 SY-VLINE,
216 SY-VLINE,
233 SY-VLINE.
*---------------------- TOTALES DEL COMPROBANTE -----------------------*
T_DMBTR = T_DMBTR + DOCUM-DMBTR.
T_EXENTO = T_EXENTO + DOCUM-EXENTO.
T_HWBAS = T_HWBAS + DOCUM-HWBAS.
T_HWSTE = T_HWSTE + DOCUM-HWSTE.
T_WT_QBSHH = T_WT_QBSHH + DOCUM-WT_QBSHH.
AT END OF CTNUMBER. " Imprime totales del comprobante
WRITE: SY-ULINE(214),
216 SY-ULINE(18).
WRITE: /136 T_DMBTR,
153 T_EXENTO,
170 T_HWBAS,
198 T_HWSTE,
217 T_WT_QBSHH.
WRITE: 135 SY-VLINE,
152 SY-VLINE,
169 SY-VLINE,
186 SY-VLINE,
197 SY-VLINE,
214 SY-VLINE,
216 SY-VLINE,
233 SY-VLINE.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
WRITE: /135 SY-ULINE(52),
197 sy-uline(18),
216 SY-ULINE(18).
CLEAR: T_DMBTR, T_EXENTO, T_HWBAS, T_HWSTE, T_WT_QBSHH.
ENDAT.
ENDLOOP.
ENDFORM.
Necesito enviar por correo comprobantes de retencion. El programa actualmente esta asi como detallo pero al momento de enviar pór correo me mezcla la info de todos los codigos y se lo envia a todos los email mezclados, que puedo revisar.
Muchas Gracias.
DATA: BEGIN OF DOCUM OCCURS 0,
CTNUMBER LIKE WITH_ITEM-CTNUMBER, " No. Comprobante
BELNR LIKE BSAK-BELNR, " No. Documento
BUZEI LIKE BSAK-BUZEI, " No. posición del doc.
GJAHR LIKE BSAK-GJAHR, " Ejercicio del Documento
BLDAT LIKE BKPF-BLDAT, " Fecha del Documento
BUDAT LIKE BKPF-BUDAT, " Fecha de Contabilización
XBLNR LIKE BKPF-XBLNR, " No. de Factura
ZUONR LIKE BSAK-ZUONR, " No. de Control
USNAM LIKE BKPF-USNAM, " Código de Usuario
AUGBL LIKE WITH_ITEM-AUGBL, " Doc. Compensación
AUGDT LIKE WITH_ITEM-AUGDT, " Fecha Compensación
TIDOC(1) TYPE C, " Tipo de Documento
TITRA(8) TYPE C, " Tipo de Transacción
NOTAD LIKE BKPF-XBLNR, " No. Nota de Débito
NOTAC LIKE BKPF-XBLNR, " No. Nota de Crédito
F_AFE LIKE BKPF-XBLNR, " No. Factura Afectada
REBZG LIKE BSAK-REBZG, " Factura SAP Relacionada
AWTYP LIKE BKPF-AWTYP, " Tipo de Operación
GLVOR LIKE BKPF-GLVOR, " Operación FI-SL
STGRD LIKE BKPF-STGRD, " Motivo de Anulación
STBLG LIKE BKPF-STBLG, " No. Doc. Anulación
LIFNR LIKE LFA1-LIFNR, " Código del Acreedor
XCPDK LIKE LFA1-XCPDK, " Ind. Acreedor Ocasional
NAME1 LIKE LFA1-NAME1, " Nombre del Acreedor-1
NAME2 LIKE LFA1-NAME2, " Nombre del Acreedor-2
STCD1 LIKE LFA1-STCD1, " RIF del Acreedor
WITHT LIKE WITH_ITEM-WITHT, " Tipo de Retención
WT_POSTM LIKE T059P-WT_POSTM, " Ind. Posteo - retención
WT_WITHCD LIKE WITH_ITEM-WT_WITHCD, " Indicador de Retención
MWSKZ LIKE BSAK-MWSKZ, " Indicador de IVA
KBETR LIKE BSET-KBETR, " % de IVA
QSATZ LIKE WITH_ITEM-QSATZ, " % Retención IVA
SHKZG LIKE BSAK-SHKZG, " Indicador Debe/Haber
DMBTR LIKE BSAK-DMBTR, " Total Factura
EXENTO LIKE BSAK-DMBTR, " Monto Exento
HWBAS LIKE BSAK-DMBTR, " Base Imponible
HWSTE LIKE BSAK-DMBTR, " Monto del IVA
WT_QSSHH LIKE BSAK-DMBTR, " Base retención IVA
WT_QBSHH LIKE BSAK-DMBTR, " Monto IVA Retenido
END OF DOCUM.
FORM IMPRIMIR_REPOR.
FORMAT RESET.
SORT DOCUM BY CTNUMBER TITRA XBLNR.
LOOP AT DOCUM.
AT NEW CTNUMBER.
NEW-PAGE.
ON_OFF = 1.
CONT_OP = 0.
SY-PAGNO = 1.
ENDAT.
CONT_OP = CONT_OP + 1.
*------------------ CAMBIA LA INTENSIDAD DE LA LINEA ------------------*
IF ON_OFF = 1.
ON_OFF = 0.
FORMAT COLOR COL_NORMAL INTENSIFIED ON.
ELSE.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
ON_OFF = 1.
ENDIF.
*----------------------------------------------------------------------*
WRITE: /002 CONT_OP NO-ZERO,
008 DOCUM-BLDAT USING EDIT MASK '__/__/____',
019 DOCUM-XBLNR RIGHT-JUSTIFIED,
040 DOCUM-ZUONR RIGHT-JUSTIFIED,
061 DOCUM-NOTAD RIGHT-JUSTIFIED,
082 DOCUM-NOTAC RIGHT-JUSTIFIED,
103 DOCUM-TITRA CENTERED,
115 DOCUM-F_AFE RIGHT-JUSTIFIED,
136 DOCUM-DMBTR,
153 DOCUM-EXENTO,
170 DOCUM-HWBAS,
187(10) DOCUM-KBETR RIGHT-JUSTIFIED,
198 DOCUM-HWSTE,
217 DOCUM-WT_QBSHH.
WRITE: 001 SY-VLINE,
007 SY-VLINE,
018 SY-VLINE,
039 SY-VLINE,
060 SY-VLINE,
081 SY-VLINE,
102 SY-VLINE,
114 SY-VLINE,
135 SY-VLINE,
152 SY-VLINE,
169 SY-VLINE,
186 SY-VLINE,
197 SY-VLINE,
214 SY-VLINE,
216 SY-VLINE,
233 SY-VLINE.
*---------------------- TOTALES DEL COMPROBANTE -----------------------*
T_DMBTR = T_DMBTR + DOCUM-DMBTR.
T_EXENTO = T_EXENTO + DOCUM-EXENTO.
T_HWBAS = T_HWBAS + DOCUM-HWBAS.
T_HWSTE = T_HWSTE + DOCUM-HWSTE.
T_WT_QBSHH = T_WT_QBSHH + DOCUM-WT_QBSHH.
AT END OF CTNUMBER. " Imprime totales del comprobante
WRITE: SY-ULINE(214),
216 SY-ULINE(18).
WRITE: /136 T_DMBTR,
153 T_EXENTO,
170 T_HWBAS,
198 T_HWSTE,
217 T_WT_QBSHH.
WRITE: 135 SY-VLINE,
152 SY-VLINE,
169 SY-VLINE,
186 SY-VLINE,
197 SY-VLINE,
214 SY-VLINE,
216 SY-VLINE,
233 SY-VLINE.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
WRITE: /135 SY-ULINE(52),
197 sy-uline(18),
216 SY-ULINE(18).
CLEAR: T_DMBTR, T_EXENTO, T_HWBAS, T_HWSTE, T_WT_QBSHH.
ENDAT.
ENDLOOP.
ENDFORM.