Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "TOTVS.CH" /*/{Protheus.doc} User Function F560PCCXF560DEL5 (Ponto de entrada grava dados complementares na exclusão dos itens da prestação de contas do caixinha) @author Cassio S. Dias @since 10/11/2023 @version 12.1.2310 @see (https://tdn.totvs.com/x/nJz1Lw) /*/ User Function F560DEL5() //Posicionado na tabela "SEU - Movimentos do caixinha" Local cHist :="Dados complementares excluidos" Local cInd :="SEU->EU_FILIAL+SEU->EU_CAIXA+SEU->EU_TIPO+SEU->EU_NROADIA+SEU->EU_NUM" Local cSit :="03" dbSelectArea("SEU") dbSetOrder(6)// EU_FILIAL+EU_CAIXA+EU_TIPO+EU_NROADIA+EU_NUM if dbseek(xFilial("SEU")+cInd) if SEU->EU_STATUS == cSit Reclock("SEU",.F.) SEU->EU_HISTOR := cHist MsUnlock() ENDIF ENDIF Return Nil |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas