Solicitado um ponto Se solicitó un punto de entrada para gravar informações adicionais na tabela de cadastro grabar información adicional en la tabla de registro de cheques (SEF) quando utilizada a opção "Substituir" na rotina al utilizar la opción "Sustituir" en la rutina de cheques emitidos (FINA095).
Criado ponto Se creó el punto de entrada F090ALTSEF F095ALTSEF que permite gravar informações adicionais na tabela de cadastro grabar información adicional en la tabla de registro de cheques (SEF)
Descripción: | F095ALTSEF |
Ubicación: | Financiero |
Eventos: | Cheques Emitidos |
Programa Fuente: | FINA095.PRW |
Función: | A095Anular() - Función para Anular cheques |
Retorno: | Ninguno |
Configuraciones previas:Acessar o TOTVS
Acceda al TOTVS | Developer Studio - TDS
...
Cree un código fuente con las reglas necesarias para la empresa.
...
Compile el referido código fuente.
A continuación se muestra un ejemplo para la utilización:
#Include 'Protheus.ch'
User Function F090ALTSEFF095ALTSEF()
Local cChAntg := PARAMIXB[1] // Dados do Datos del cheque que será substituidose sustituirá
Local cChNovo := PARAMIXB[2] // Dados do Datos del cheque que será gerado se generará
Local aAreaSEF:= SEF->(GetArea())
DbSelectArea("SEF")
SEF->(DbSetOrder(4))
IF SEF->(DbSeek(cChAntg) )
RecLock("SEF")
SEF->EF_NUMNOTA := "" //CARACTER
SEF->EF_VALORBX := 0 // NUMERICO
SEF->EF_DATAPAG := CTOD("//") // DATA
SEF->EF_TERCEIR := .F. // LOGICO
SEF->SEF→(MsUnlock())
EndIF
SEF->(DbCloseArea())
DbSelectArea("SEF")
SEF->(DbSetOrder(4))
IF SEF->(DbSeek(cChNovo))
RecLock("SEF")
SEF->EF_NUMNOTA := "10052019001" //CARACTER
SEF->EF_VALORBX := 199.59 // NUMERICO
SEF->EF_DATAPAG := CTOD("10/05/2019") // DATA
SEF->EF_TERCEIR := .T. // LOGICO
SEF->SEF→(MsUnlock())
EndIF
SEF->(DbCloseArea())
SEF->(RestArea(aAreaSEF))
Return .T.Return
Flujo de prueba:
Acessar o módulo financeiroAcceda al Módulo Financiero.
Acessar Acceda a rotina la rutina de cheques emitidos (AtualizaçõesActualizaciones|Pago Eletronicoelectrónico|Cheques Emitidosemitidos)
Possuir cheques com o status de "não utilizado" e outra situação que possibilite substituir o Tener cheques con el estatus "no utilizado" y otra situación que permita sustituir el cheque, por exemplo ejemplo "pago vinculado"
Acessar o Acceda al APSDU
Abra a tabela la tabla de cadastro registro de cheques (SEF) e y filtre os los cheques que serão utilizados no processo(O que será substituído e seu substituto.se utilizarán en el proceso(El que será sustituido y su sustituto).
Observe o conteúdo dos el contenido de los campos tratados no ponto en el punto de entrada. Neste exemplo os campos são En este ejemplo los campos son EF_NUMNOTA, EF_VALORBX, EF_DATAPAG, EF_TERCEIR.
Acessar o modulo financeiro e selecione o cheque a ser substituído, ou seja com o status Acceda al Módulo Financiero y seleccione el cheque que se sustituirá, es decir con el estatus "pago vinculado" , e utilize a opção de substituiry utilice la opción de sustituir.
Preencha os Complete los campos necessáriosnecesarios, utilizando a opção para deixar o antigo la opción para dejar el antiguo cheque a disposição para uma movimentação futuradisposición para un movimiento futuro
Veja que o status Observe que se modificó el estatus de cada cheque foi alterado.
Acessar o Acceda al APSDU e y observe que as informações padrão foram alterada se modificó la información estándar entre os cheques e y que os los campos utilizados no ponto en el punto de entrada também foram atualizados para o novo cheque gerado.
Acesse o Financeiro e realize novamente o procedimento, porém neste selecione o cheque gerado nos passos anteriores desse processo.
Preencha os dados necessários e confirme o processo.
Veja que os status foram alterado entre os también se actualizaron para el nuevo cheque generado.
Acceda al Financiero y realice nuevamente el procedimiento, pero en este seleccione el cheque generado en los pasos anteriores de este proceso.
Complete los datos necesarios y confirme el proceso.
Observe que se modificaron los estatus entre los cheques.
Voltei ao APSDU e podera observar que os campos tratados no ponto de entrada do cheque substituído foram apagados e as informações foram gravadas no novo cheque gerado.
Observação:
Todos os procedimentos devem ser realizados primeiramente em uma base de homologaçãoRegrese al APSDU y observe que los campos tratados en el punto de entrada del cheque sustituido se borraron y la información se grabó en el nuevo cheque generado.
Observación:
Todos los procedimientos deben realizarse primeramente en una base de homologación.
SEF - cadastro registro de cheques
Versión: 12.1.17
...