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) |
Descripción:
Esta rutina realiza el registro de los avisos de recepción de carga.
Programa fuente:
MATA145.PRX
Sintaxis:
MATA145 - Registro de aviso de recepción ( [ PARAMIXB1 ] [ PARAMIXB2 ] [ PARAMIXB3 ] [ PARAMIXB4 ] ) --> NIL
Devolución:
NIL(nulo)
Observaciones
El aviso de recepción de carga es un documento que muestra la carga de un vehículo.
Puede ser referente a una única factura o a varias.
Después de la entrega, se deben homologar las facturas registradas.
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 NilNombre | 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: |