Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | Serviços |
Módulo: | Fiscal |
Programa: | MATA940.PRW |
Idiomas: | Todos |
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.
Nome | Tipo | Descrição |
PARAMIXB | Array of Record | Array com os dados de processamento com elementos [2] Documento de transporte (Ctrc) [3] Serie |
Nome | Tipo | Descrição | Obrigatório |
Sem retorno |
O exemplo abaixo é meramente ilustrativo, sendo o seu comportamento e responsabilidade, determinado pelas regras de negócios definidas pelo cliente.
#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 |
Não se aplica.