Perguntas Ponto de Entrada MT100TOK Modulo Compras

Mais
11 anos 9 meses atrás #2742 por bruno.goliato
Ola a todos estou desenvolvendo uma critica no ponto de entrada MT100TOK para antes de incluir o sistema verificar se o conteudo do campo NFORICONH(Criado)ja existe cadastrado na tabela . So que a primeira parte ele faz ja a segunda nao.
Alguem poderia me ajudar.


Local lRel := .T.
Local cQuery
Local cAlias := CriaTrab(Nil,.F.)

If (Alltrim(M->CESPECIE) == 'CTE' .OR. Alltrim(M->CESPECIE) == 'CTR') .AND. Alltrim(ACOLS[n][18]) == ''
Aviso("CONHECIMENTO","Campo Especie de Documento igual a CTE ou CTR o Campo NF ORI CONHECIMENTO não pode estar em branco ",{"OK"})
lRel := .F.

ELSEIf (Alltrim(M->CESPECIE) == 'CTE' .OR. Alltrim(M->CESPECIE) == 'CTR') .AND. Alltrim(ACOLS[n][18]) <> ''


cQuery := " SELECT D1_ZNFCONH"
cQuery += " FROM " + RetSQLName("SD1") + " SD1 "
cQuery += " WHERE D1_FILIAL = '" + xFilial("SD1") + "' "
cQuery += " AND D1_ZNFCONH = '" + Alltrim( ACOLS[n][18]) + "' "


Aviso("CONHECIMENTO","NF ORI CONHECIMENTO ja cadastrado para esse conhecimneto ",{"OK"})
lRel := .F.

TCQuery cQuery NEW ALIAS (cAlias)

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 9 meses atrás #2795 por Sombra
Boa tarde Brino.

De uma ilhada nesse Material que fala sobre esse Ponto de Entrada. Espero que te ajude

Abs



MT100TOK - Valida a inclusão de NF

Ponto-de-Entrada: MT100TOK - Valida a inclusão de NF
Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11 ,
Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição:
LOCALIZAÇÃO : Function A103Tudok()
EM QUE PONTO : Este P.E. é chamado na função A103Tudok()
Pode ser usado para validar a inclusao da NF.
Esse Ponto de Entrada é chamado 2 vezes dentro
da rotina A103Tudok(). Para o controle do
número de vezes em que ele é chamado foi criada
a variável lógica lMT100TOK, que quando for

definida como (.F.) o ponto de entrada será
chamado somente uma vez.

Programa Fonte
MATA103.PRW
Sintaxe
MT100TOK - Valida a inclusão de NF ( < UPAR> ) --> lRet
Retorno
lRet(logico)

O Retorno devera ser Logico; Se Verdadeiro (.T.), atualizara o movimento, de acordo com os dados
digitados pelo usuario ; Se for falso (.F.) nao prosseguira com a implantacao.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.116 segundos
Joomla templates by a4joomla