Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (pauloc), última alteração por admin em 03 jul, 2012

Ponto-de-Entrada: CTBSEQDIA - Efetua a gravacao na tabela de origiem do item para contabilizar no Diario
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
Efetua a gravacao na tabela de origiem do item para contabilizar no Diario
Eventos

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

Programa Fonte 
CTBXFUN.PRX
Sintaxe

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

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aSeqDiario[nPosASeq] Numérico Numero de sequencia do diario
cCodDia caracter Código do dia
cSeqDiario caracter Sequencia do diario
Retorno
Nil (Nulo)
Exemplos 
	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