Histórico da Página

Efetua a gravacao na tabela de origiem do item para contabilizar no Diario 

Ocorre na Função de gravação disparado do CTBGRAVA                  

CTBXFUN.PRX 

CTBSEQDIA - Efetua a gravacao na tabela de origiem do item para contabilizar no Diario ( [ aSeqDiario[nPosASeq] ], [ cCodDia ], [ cSeqDiario ] )

	If lSeqCorr .And. Len( aSeqDiario ) > 0		// limpo a variavel de sequencia para garatir a integridade do diario		cSeqDiario 	:= cSeqCorr		cCodDia		:= Substr( cSeqCorr , 1 , 2 )		// efetua a gravação no documento de origem 		For nPosASeq :=  1 to Len(aSeqDiario)			// procurar o codigo do diario(aSeqDiario[nPosASeq][2]) na tabela CVL			// E procurar o ultimo numero sequencial(CVM_SEQULT)+1 conforme dDataLanc informado			// E atualizar o campo CVM_SEQULT e CVM_DTSEQ			If aSeqDiario[nPosASeq][2] <> 0             				// efetuo o posicionamento a origem para atualização				dbSelectArea(aSeqDiario[nPosASeq][1]) 				dbGoTo(aSeqDiario[nPosASeq][2])				                                           				// Grava apenas se o registro existir e o codigo do correlativo em branco				If !( (aSeqDiario[nPosASeq][1])->(Eof()) ) .And. Empty( &(aSeqDiario[nPosASeq][4]) )					RecLock(aSeqDiario[nPosASeq][1],.F.)					&(aSeqDiario[nPosASeq][4]) := cSeqDiario									//Se o Lançamento for diferente de inclusao ele ira gravar o campo CTBDIA 					If Len(aSeqDiario[nPosASeq]) == 5						//Verifica se o campo esta trazendo o nome do campo para gravar o campo DIACTB.						If aSeqDiario[nPosASeq][5] <> ""							&(aSeqDiario[nPosASeq][5]) := cCodDia 						EndIf					EndIf														MsUnlock()										IF lCTBSEQDIA						ExecBlock("CTBSEQDIA",.F.,.F.,{aSeqDiario[nPosASeq],cCodDia,cSeqDiario})					ENDIF									Endif			EndIF