#1
|
|||
|
|||
Envio de Comprobante
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. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|