Histórico da Página

...

Portuguese

Pagetitle

	MATA145 - Cadastro Registro de Aviso aviso de Recebimento recepción
	MATA145 - Cadastro Registro de Aviso aviso de Recebimento recepción

FunçãoFunción: MATA145 - Cadastro Registro de Aviso aviso de Recebimento recepción

AbrangênciasVersõesCompatível Países OperacionaisCompatível às Bases de DadosNível AcessoNível Acesso Português

Alcances:	Protheus 10
Versiones:	Protheus 10
Compatible países:	Todos
Sistemas	operativos:	Todos
Compatible a las bases de datos:	Todos
Nivel de	acceso:	Nivel 1 (	Acceso Clientes)
Idiomas:	Portugués (Brasil)

Descrição

Descripción:

Esta

rotina efetua o cadastramento dos avisos de recebimento de

rutina realiza el registro de los avisos de recepción de carga.

Programa

Fonte

fuente:

MATA145.PRX

Sintaxe

Sintaxis:

MATA145 -

Cadastro

Registro de

Aviso

aviso de

Recebimento

recepción ( [ PARAMIXB1 ] [ PARAMIXB2 ] [ PARAMIXB3 ] [ PARAMIXB4 ] ) --> NIL

Retorno

Devolución:

NIL

(nulo)

Observações

Observaciones

O

El aviso de

recebimento

recepción de carga

é um

es un documento que

demonstra a

muestra la carga de

um veículo;
Pode

un vehículo.

Puede ser referente a

uma única nota fiscal ou a várias;Após a entrega, as notas cadastradas devem ser homologadas

una única factura o a varias.

Después de la entrega, se deben homologar las facturas registradas.

Exemplos

Ejemplos

#INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH" User Function MYMTA145()                       Local aDB1   := {}  Local aDB2   := {} Local aDB3   := {} Local aTamProd:= {}Local cRavRc  :="000020"     //..numero do AvisoLocal dEmissa := ""          //.. emissaoLocal cTipo   := "1"         //.. Tipo de cliente ou fornecedorlOCAL cCliFor := "01    "    //.. Codigo do cliente ou fornecedorLocal cLoja   := "01  "      //.. numero da lojaLocal cTipoNF := "N"         //.. tipo da nota //N-> Pedidos Normais.Local cProd   := ""          //.. codigo do produto                           Local cDoc    := "000000020" //.. numero do documentoLocal nQuant  := 10          //.. quantidadeLocal nVunit  := 1           //..valor unitarioLocal nTotal  := 10          //..totalPRIVATE lMsErroAuto := .F.                               //------------------------//| Abertura do ambiente |//------------------------PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM" TABLES "DB1","DB2","DB3","SB1"      aTamProd:= TamSX3("B1_COD")cProd   := "PROD1"+Space( aTamProd[1]-Len("PROD1") )dEmissa := dDataBase  ConOut(Repl("-",80))ConOut(PadC("Cadastro de Aviso de Recebimento",80))ConOut("Inicio: "+Time())//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Exemolo de Inclusao                                          |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   aDB1 := {}aadd(aDB1,{"DB1_NRAVRC" ,cRavRc ,})aadd(aDB1,{"DB1_EMISSA" ,dEmissa ,})aadd(aDB1,{"DB1_TIPO"   ,cTipo   ,})aadd(aDB1,{"DB1_CLIFOR" ,cCliFor ,})aadd(aDB1,{"DB1_LOJA"   ,cLoja   ,})aadd(aDB1,{"DB1_TIPONF" ,cTipoNF ,})  aadd(aDB1,{"DB1_NRDOC"  ,"99999" ,})  aadd(aDB1,{"DB1_ENTREG" ,dEmissa ,})aadd(aDB1,{"DB1_HOMOLO" ,"1"     ,})		aDB2 := {}aAdd(aDB2,{})aadd(aDB2[len(aDB2)],{"DB2_DOC"   ,cDoc     ,})aadd(aDB2[len(aDB2)],{"DB2_EMISSA",dEmissa  ,})aadd(aDB2[len(aDB2)],{"DB2_TIPO"  ,cTipo    ,})aadd(aDB2[len(aDB2)],{"DB2_CLIFOR",cCliFor  ,})aadd(aDB2[len(aDB2)],{"DB2_LOJA"  ,cLoja    ,})aadd(aDB2[len(aDB2)],{"DB2_NRAVRC",cRavRc   ,})			 	      aDB3 := {}   aAdd(aDB3,{})                                  aadd(aDB3[len(aDB3)],{"DB3_NRAVRC" ,cRavRc ,})aadd(aDB3[len(aDB3)],{"DB3_ITEM"   ,"001"  ,})	aadd(aDB3[len(aDB3)],{"DB3_CODPRO" ,cProd  ,})		aadd(aDB3[len(aDB3)],{"DB3_QUANT"  ,nQuant ,})aadd(aDB3[len(aDB3)],{"DB3_VUNIT"  ,nVunit ,})aadd(aDB3[len(aDB3)],{"DB3_TOTAL"  ,nTotal ,})aadd(aDB3[len(aDB3)],{"DB3_ITDOC"  ,"001"  ,})aadd(aDB3[len(aDB3)],{"DB3_STSERV" ,"1"    ,})     PARAMIXB1 := aClone(aDB1)	PARAMIXB2 := aClone(aDB2)PARAMIXB3 := aClone(aDB3)PARAMIXB4 := 3	MSExecAuto({|x,y,z,w| mata145(x,y,z,w)},PARAMIXB1,PARAMIXB2,PARAMIXB3,PARAMIXB4)	If !lMsErroAuto	ConOut("Incluido com sucesso! "+cProd)	Else      MostraErro()	ConOut("Erro na inclusao!")EndIfConOut("Fim  : "+Time())Return Nil

ParâmetrosParámetros:

NomeDescriçãoDefaultObrigatórioReferência contendo os valores do Aviso de recebimento contendo os valores do Cabeçalho do recebimento contendo os valores dos itens do recebimentoOpção escolhidaInclusãoAlteração Exclusão

Nombre

Tipo

Descripción

Estándar

Obligatorio

Referencia

PARAMIXB1

Array of Record

Array

que contiene los valores del aviso de recepción de carga

PARAMIXB2

Array of Record

Array

que contiene los valores de encabezado del documento de

recepción

PARAMIXB3

Array of Record

Array

que contiene los valores de los ítems del documento de

recepción

PARAMIXB4

Numérico

Opción seleccionada:
3-

Inclusión
4-

Modificación
5-

Borrado

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave