Histórico da Página
Versões: | Microsiga Protheus 11 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Português, Espanhol, Inglês |
Descrição: permite permite alterar informações nos dos títulos financeiros no momento de encerrar gerados ao fazer o encerramento de uma medição.
Localização: no momento do encerramento da medição.
Eventos: ao encerrar a medição, é gerado um título no Financeiro com as informações alteradas.
Programa fonte: CNTA120.
Função: o Ponto de Entrada é chamado na Function CN120GrvTit, no momento do Encerramento da Medição.
Retorno:
NOME | TIPO | DESCRIÇÃO | OBRIGATÓRIO |
---|
PARAMIXB[1] | Array of records |
Retorna as informações do título |
X | |
PARAMIXB[2] | Caracter |
Apresenta o tipo de Contrato (Compra ou Venda). | X |
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#Include 'Protheus.ch' User Function CN120ALT() Local aCab:= PARAMIXB[1] Local cTipo:= PARAMIXB[2] If cTipo == '1' aCab[42][2]:= 'NFNFE' //Validações do usuário EndIf Return aCab |
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#Include 'Protheus.ch'
User Function CN120ALT()
Local aResult := Nil//Retornar nulo caso nao modifique o array
Local aCab := PARAMIXB[1]
Local cTipo := PARAMIXB[2]
Local cChaveCNE := ""
Local cChaveCNZ := ""
CNE->(DbSetOrder(1))//CNE_FILIAL+CNE_CONTRA+CNE_REVISA+CNE_NUMERO+CNE_NUMMED+CNE_ITEM
CNZ->(DbSetOrder(2))//CNZ_FILIAL+CNZ_CONTRA+CNZ_REVISA+CNZ_NUMMED+CNZ_ITCONT+CNZ_ITEM
cChaveCNE := CND->(CND_FILIAL+CND_CONTRA+CND_REVISA+CND_NUMERO+CND_NUMMED)
If CNE->(DbSeek(cChaveCNE))
While CNE->(!EOF() .And. CNE_FILIAL+CNE_CONTRA+CNE_REVISA+CNE_NUMERO+CNE_NUMMED == cChaveCNE)
If !Empty(CNE->CNE_CC)
aResult := aClone(aCab)
aAdd(aResult, {IIF((cTipo == "1"),'E2_CCUSTO', 'E1_CCUSTO'), CNE->CNE_CC, Nil})
Exit
Else
cChaveCNZ := CNE->(CNE_FILIAL+CNE_CONTRA+CNE_REVISA+CNE_NUMMED+CNE_ITEM)
If CNZ->(DbSeek(cChaveCNZ))
aResult := aClone(aCab)
aAdd(aResult, {IIF((cTipo == "1"),'E2_CCUSTO', 'E1_CCUSTO'), CNZ->CNZ_CC, Nil})
Exit
EndIf
EndIf
CNE->(DbSkip())
EndDo
EndIf
Return aResult |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas