Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Fiscal
Programa:MATA940.PRW
Idiomas:Todos

02. DESCRIÇÃO

Ponto de Entrada para tratamento do Registro Tipo 71 - Conhecimentos de Transportes, após a gravação do mesmo. Somente quando houver integração com o TMS.

03. ESPECIFICAÇÃO

Parâmetros do ponto de entrada

Nome

Tipo

Descrição

PARAMIXB

Array of Record

Array com os dados de processamento com elementos

[1] Filial do documento

[2] Documento de transporte (Ctrc)

[3] Serie
 

Retorno

Nome

Tipo

Descrição

Obrigatório



Sem retorno



04. EXEMPLO DE UTILIZAÇÃO

O exemplo abaixo é meramente ilustrativo, sendo o seu comportamento e responsabilidade, determinado pelas regras de negócios definidas pelo cliente.

MTREG71
#INCLUDE "PROTHEUS.CH"

User Function MTREG71()
Local cFilDoc   :=  PARAMIXB[1] //Filial do documento 
Local cDoc      :=  PARAMIXB[2] //Documento de transporte (Ctrc)
Local cSerie    :=  PARAMIXB[3] //Serie 
Local aAreaDT6  :=  DT6->(GetArea())

If empty(R71->A71_DTNOTA) 
    
    DT6->(dbSetOrder(1)) //DT6_FILIAL+DT6_FILDOC+DT6_DOC+DT6_SERIE
    If (DT6->(MsSeek(xFilial("DT6")+cFilDoc+cDoc+cSerie)))
        Reclock("R71",.F.)
            R71->A71_DTNOTA:=DT6->DT6_DATEMI
        R71->(MsUnlock())
    EndIf

EndIF

DT6->(RestArea(aAreaDT6))
Return


05. DEMAIS INFORMAÇÕES

Não se aplica.