Histórico da Página
01. DADOS GERAIS
| Produto: |
| ||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Linha de Produto: |
| ||||||||||||||||
| Segmento: |
| ||||||||||||||||
| Módulo: | SIGAOMS - Gestão de Distribuição | ||||||||||||||||
| Função: | - | ||||||||||||||||
| País: | Todos Países | ||||||||||||||||
| Ticket: | - | ||||||||||||||||
| Requisito/Story/Issue (informe o requisito relacionado) : | - |
02. DESCRIÇÃO
Este Ponto de Entrada permite validar o Pedido marcado para faturamento pela ação de Faturar Carga.
03. LOCALIZAÇÃO
Localizado no início da função de faturamento do Pedido (a460Nota).
Este Ponto de Entrada é chamado apenas uma vez, na tentativa de faturar todas as cargas marcadas em tela.
Ao retornar Falso (.F.), o Sistema cancelará o faturamento de todas as cargas marcadas em tela.
04. PARÂMETROS
Nome | Tipo | Descrição |
|---|---|---|
| cMark | Caractere | Marca realizada no Pedido. Não é a mesma marca realizada na carga. |
| lInvert | Lógico | Não utilizar para validações de faturamento por carga. |
| cSerie | Caractere | Série selecionada na geração da Nota Fiscal. |
05. RETORNO
| Nome | Tipo | Descrição |
|---|---|---|
| lExecuta | Lógico | Determina se deverá prosseguir com o processamento para a geração da Nota Fiscal. |
06. VERSÕES
Protheus 12.1.23 e superiores.
07. OBSERVAÇÃO
Este Ponto de Entrada é chamado apenas uma vez, na tentativa de faturar todas as cargas marcadas em tela.
Ao retornar Falso (.F.), o sistema cancelará o faturamento de todas as cargas marcadas em telaNão se aplica.
08. EXEMPLO
...
| language | cpp |
|---|---|
| title | Exemplo |
| linenumbers | true |
| collapse | true |
...
------
User Function M460MARK()
...
Local
...
lRet
...
:=
...
.T.
...
Local
...
cMark
...
:=
...
PARAMIXB[1]
...
//
...
Marca
...
realizada
...
no
...
pedido
...
Local
...
cAliasQry
...
:=
...
GetNextAlias()
...
Local
...
cCargas
...
:=
...
""
...
//Query
...
com
...
a
...
validação
...
necessária
...
para
...
a
...
carga
...
BeginSql Alias cAliasQry
SELECT DISTINCT DAK.DAK_COD
...
FROM %Table:SC9%
...
SC9
INNER JOIN %Table:DAK%
...
DAK
ON DAK.DAK_FILIAL
...
=
...
%xFilial:DAK%
...
AND DAK.DAK_COD
...
=
...
SC9.C9_CARGA
...
AND DAK.DAK_CAMINH
...
=
...
'
...
'
AND DAK.%NotDel%
WHERE SC9.C9_FILIAL
...
=
...
%xFilial:SC9%
...
AND SC9.C9_OK
...
=
...
%Exp:cMark%
...
AND SC9.%NotDel%
EndSql
While (cAliasQry)→(!EoF())
...
cCargas +=
...
(cAliasQry)->DAK_COD
...
+
...
"
...
"
...
//Armazena
...
cargas
...
com
...
problema
(cAliasQry)->(DbSkip())
...
EndDo
(cAliasQry)
...
→(DbCloseArea())
...
If !Empty(cCargas)
...
MsgInfo("Faturamento
...
cancelado
...
por
...
problema
...
nas
...
cargas:
...
"+cCargas,
...
"Ponto
...
de
...
Entrada
...
M460MARK")
...
lRet :=
...
.F.
...
EndIf
Return lRet
------
| Templatedocumentos |
|---|
| HTML |
|---|
Import HTML Content
Visão Geral
Conteúdo das Ferramentas