Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Felipe Marques Barbieri

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Vanessa Aparecida Martins de Melo

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Descrição

Este Ponto de Entrada foi disponibilizado para validação da Inclusão de Nota Fiscal.

Observações

Este Ponto de Entrada

, localizado no TMSA050 (

está localizado na rotina Notas-Fiscais do Cliente (TMSA050), é executado na função TUDOOK da Inclusão da Nota-Fiscal.

É passado o parâmetro PARAMIXB para uso no ponto de entrada. Explicado na sessão variáveis deste documento.

Exemplos

User Function TM050TOK() 
Local _cLote := M->DTC_LOTNFC

Local _aParam := PARAMIXB

Local lRet    := .T. 
If cLote == '000037'  .And. _aParam[1] == 3 //-- Se lote for 000037 e operação for uma inclusão de registro, não permite gravar as
 
notas.
      lRet := .F.            
      MsgAlert('Nota-Fiscal não será incluída')
Endif 
Return lRet

Preview

Veja também

 

Idioma

Português(Brasil)

Versões

Versões_Anteriores

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Retorno

.T. ou .F.
()
Caso o retorno seja (.F.) a nota fiscal não será incluída.

Eventos de chamada do Ponto de Entrada

Ao clicar na opção
Confimar
Confirmar, na tela de Inserção de Documentos, o PE TM050TOK() é chamado.

Variáveis

nOpcx - Numerico

oDlg - Array of record

Passado por parâmetros o Array PARAMIXB contendo os seguintes dados:

ElementoDescrição
PARAMIXB[1]Tipo de Operação 3=Inclusão;4=Alteração;5=Exclusão; Com tipagem numérica.
PARAMIXB[2]Array do Objeto da tela.
PARAMIXB[3]

Informações do Peso Cubado de Cada Nota Fiscal da grid. Que contém os seguintes elementos.

PARAMIXB[3][1][1] Item: Nota Fiscal + Série NF + Código do Produto
PARAMIX[3][1][2]

Informações da Cubagem da Nota Fiscal / aRatPesM3

É um array que contém os seguintes elementos:

PARAMIXB[3][1][2][n][1] //| quantidade de volume
PARAMIXB[3][1][2][n][2] //| altura
PARAMIXB[3][1][2][n][3] //| largura
PARAMIXB[3][1][2][n][4] //| comprimento
PARAMIXB[3][1][2][n][5] //| alias da tabela - reservado ao sistema
PARAMIXB[3][1][2][n][2] //| recno - reservado ao sistema
PARAMIXB[3][1][2][n][2] //| registro excluido? .F. Não | .T. SIM

Onde que 'n' é a linha da grid que será percorrida.



PARAMIX[4]

Informações do valor informado de cada nota fiscal da grid. (recebe aValInf do TMSA050). É um array contendo:

PARAMIXB[4][n][1] //| Código do Componente de Valor Informado
PARAMIXB[4][n][2] //| Quantidade / Valor Informado
PARAMIXB[4][n][3] //| Reservado ao sistema
PARAMIXB[4][n][4] //| Numero da NF
PARAMIXB[4][n][5] //| Série da NF
PARAMIXB[4][n][6] //| Produto/Item da Nota Fiscal
PARAMIXB[4][n][7] //| Alias da tabela - reservado ao sistema
PARAMIXB[4][n][8] //| Recno de gravação do registro - reservado ao sistema.


Onde que 'n' é a linha da grid que será percorrida.

aRatPesM3 - Array contendo dados do peso cubado do documento



Programa Fonte

TMSA050.PRW