Re: Buenas incidencia en el proceso de contabilización de retención de ISLR

17 views
Skip to first unread message

Juan Navas DataPro

unread,
Jan 5, 2017, 12:04:21 PM1/5/17
to VICENTE CAMESELLA, Tulio Jaimes Gerencia de Sist. DataPro, Foro Proyecto Adaptapro, Foro AdaptaPro
Vicente
Saludos,

Leyendo el codigo, solo contabiliza si es automatico o la retencion esta contabilizada, por ahora agregue el mensaje.  

El deber ser es no permitir modificaciones si esta contabilizado y el asiento está actualizado. Rehacer el Asiento es necesario para evitar descuadres contables o reclamos por incidencias por las posibles inconsistencia por uso indebido del sistema. Por esto es necesario diseñar en el proyecto de implementación la lista de opciones que deben ser implementadas para evitar datos inconsistentes causador por uso indebido.


FUNCTION POSTSAVE()
  LOCAL lContab:=SQLGET(IIF(oDpDocIslr:lVentas,"DPTIPDOCCLI","DPTIPDOCPRO"),"TDC_CONAUT,TDC_DESCRI","TDC_TIPO='RET'")
  LOCAL cDescri:=ALLTRIM(DPSQLROW(2))

  // Actualiza Documento 
  // oDpDocIslr:PRINTER()

  IF lContab .OR. !Empty(oDpDocIslr:cNumCbt)

      IF !lContab
         MsgMemo("Documento, Retención ISLR "+oDpDocIslr:cNumRet+", está Contabilizado en "+oDpDocIslr:cNumCbt+CRLF+", Es necesario rehacer el Asiento Contable")
      ENDIF

      MsgRun("Contabilizando "+cDescri + oDpDocIslr:cNumRet,"Por favor Espere",{||;
                               EJECUTAR("DPDOCCONTAB", oDpDocIslr:cNumCbt,;
                                                       oDpDocIslr:cCodSuc,;
                                                       "RET",;
                                                       oDpDocIslr:cCodTer,;
                                                       oDpDocIslr:cNumRet,oDpDocIslr:lVentas,.F.) })

  ENDIF


El 5 de enero de 2017, 9:51, VICENTE CAMESELLA <grupoayo...@gmail.com> escribió:

Buenas Incidencia de contabilización de retención de ISLR

La incidencia está basada en que no está respetando el parámetro de contabilizar automáticamente el documento así el cliente no desee que el asiento se genere de forma automática el sistema lo genera adjunto pantallas para que se vea el caso

Versión 5.1 release 16-07 actualizado el dia de hoy mediante Plugin 16-12 suministrado via correo el dia 05-01-2017

Como se observa en la imagen 1 el documento de RET esta desactivada la opción de contabilizar automáticamente

En la imagen 2 se ve cuando se graba el documento hace el proceso de contabilizando de forma automática aun cuando no se desea



--

Este e-mail fue enviado por: Grupo de Consultoria A&O Asesoría en Sistemas C.A - Venezuela, Av. Universidad, Edif. Celsa. Piso 13, Ofic. 13-B, Caracas, Zona Postal 1060. RIF J-40349954-3, Venezuela.




--
Juan Navas
CEO Adaptapro
http://www.datapronet.com
Caracas - Venezuela
0414-293.17.07
AdaptaPro® El más completo y moderno Sistema de Planificación y Gestión Empresarial

AVISO LEGAL:

Esta información es privada y confidencial y está dirigida únicamente a su destinatario. Si usted no es el destinatario original de este mensaje y por este medio pudo acceder a dicha información por favor elimine el mensaje. La distribución o copia de este mensaje está estrictamente prohibida. Esta comunicación es sólo para propósitos de información y no debe ser considerada como propuesta, aceptación ni como una declaración de voluntad oficial de SERVICIOS INFORMATICOS DATAPRO, C.A.  y/o subsidiarias y/o afiliadas. La transmisión de e-mails no garantiza que el correo electrónico sea seguro o libre de error. Por consiguiente, no manifestamos que esta información sea completa o precisa. Toda información está sujeta a alterarse sin previo aviso.


This information is private and confidential and intended for the recipient only. If you are not the intended recipient of this message you are hereby notified that any review, dissemination, distribution or copying of this message is strictly prohibited. This communication is for information purposes only and shall not be regarded neither as a proposal, acceptance nor as a statement of will or official statement from SERVICIOS INFORMATICOS DATAPRO, C.A.  and/or subsidiaries and/or affiliates. Email transmission cannot be guaranteed to be secure or error-free. Therefore, we do not represent that this information is complete or accurate and it should not be relied upon as such. All information is subject to change without notice.

Juan Navas DataPro

unread,
Jan 5, 2017, 12:20:19 PM1/5/17
to VICENTE CAMESELLA, Tulio Jaimes Gerencia de Sist. DataPro, Foro Proyecto Adaptapro, Foro AdaptaPro
Vicente,

No es rollo, es la solucion para evitar reclamos por inconsistencias causadas por retenciones contabilizadas y luego modificadas. 

Juan Navas DataPro

unread,
Jan 5, 2017, 1:41:08 PM1/5/17
to VICENTE CAMESELLA, Tulio Jaimes Gerencia de Sist. DataPro, Foro Proyecto Adaptapro, Foro AdaptaPro
Vicente, encontre la incidencia,

/*
// Carga los Datos
*/
FUNCTION LOAD()
   LOCAL cActual:="N",cMotivo

   oDpDocIslr:cActual:=EJECUTAR("DPDOCVIEWCON",oDpDocIslr:cCodSuc,"RET",;
                       oDpDocIslr:cCodTer,oDpDocIslr:cNumRet,"D",.T.,.F.)


   oDpDocIslr:cNumCbt:=oDp:cNumCbt // Numero de Comprobante Contable

Siempre no estara vacia, y el programa asume que esta contabilizado.

Juan Navas DataPro

unread,
Jan 5, 2017, 2:00:23 PM1/5/17
to VICENTE CAMESELLA, Tulio Jaimes Gerencia de Sist. DataPro, Foro Proyecto Adaptapro, Foro AdaptaPro
Vicente
Saludos
Adjunto programa corregido para ser previamente evaluado y certificado antes de subirlo al estandar.


FUNCTION POSTSAVE()
  LOCAL lContab:=SQLGET(IIF(oDpDocIslr:lVentas,"DPTIPDOCCLI","DPTIPDOCPRO"),"TDC_CONAUT,TDC_DESCRI","TDC_TIPO='RET'")
  LOCAL cDescri:=ALLTRIM(DPSQLROW(2))
  LOCAL cNumCbt:=oDpDocIslr:DOC_CBTNUM

  // Actualiza Documento 
  // oDpDocIslr:PRINTER()

  IF (lContab .AND. !Empty(oDpDocIslr:cNumCbt)) .OR. !Empty(oDpDocIslr:DOC_CBTNUM)

      cNumCbt:=IF(Empty(oDpDocIslr:DOC_CBTNUM),oDpDocIslr:cNumCbt)

      IF !lContab
         MsgMemo("Documento, Retención ISLR "+oDpDocIslr:cNumRet+", está Contabilizado en "+cNumCbt+CRLF+", Es necesario rehacer el Asiento Contable")
      ENDIF

      MsgRun("Contabilizando "+cDescri + oDpDocIslr:cNumRet,"Por favor Espere",{||;
                               EJECUTAR("DPDOCCONTAB", cNumCbt           ,;
                                                       oDpDocIslr:cCodSuc,;
                                                       "RET",;
                                                       oDpDocIslr:cCodTer,;
                                                       oDpDocIslr:cNumRet,oDpDocIslr:lVentas,.F.) })

  ENDIF

DPPROGRA.ZIP
Reply all
Reply to author
Forward
0 new messages