| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | M461ADT |
| Abrangências: | Microsiga Protheus 12 |
| Versões: | Microsiga Protheus 12 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível com as Bases de Dados: | Todos |
| Nível de Acesso: | Nível 1 (Acesso Clientes) |
| Idiomas: | Todos |
O ponto de entrada é executado na preparação do Documento de Saída no faturamento, para validar se os itens do Pedido de Venda serão ou não faturados.
M461ADT({ cPedido , cItem }) --> lRet
| Nome | Tipo | Descrição |
|---|---|---|
| PARAMIXB[1] | Caractere | Número do Pedido de Venda |
| PARAMIXB[2] | Caractere | Item do Pedido de Venda |
| Nome | Tipo | Descrição | Obrigatório |
|---|---|---|---|
| lRet | Lógico | .T. - Item do pedido será faturado .F. - Não será faturado | X |
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TOTVS.CH"
User Function M461ADT()
Local cPedido := PARAMIXB[1] //Número do Pedido de Venda
Local cItem := PARAMIXB[2] //Item do Pedido de Venda
Local lRet := Nil
iF cPedido == "TOTVS" .AND. cItem != "02"
lRet := .F.
Alert("O item do Pedido de Venda não será Faturado")
Else
lRet := .T.
EndIf
Return lRet |