Função: MATA145 - Cadastro de Aviso de Recebimento
| Abrangências: | Protheus 10 |
| Versões: | Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Nível de Acesso: | Nível 1 (Acesso Clientes) |
| Idiomas: | Português (Brasil) |
Descrição:
Esta rotina efetua o cadastramento dos avisos de recebimento de carga.
Programa Fonte:
MATA145.PRX
Sintaxe:
MATA145 - Cadastro de Aviso de Recebimento ( [ PARAMIXB1 ] [ PARAMIXB2 ] [ PARAMIXB3 ] [ PARAMIXB4 ] ) --> NIL
Retorno:
NIL
- (nulo)
Observações
O aviso de recebimento de carga é um documento que demonstra a carga de um veículo;
Pode ser referente a uma única nota fiscal ou a várias;
Após a entrega, as notas cadastradas devem ser homologadas.
Exemplos
#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 NilParâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| PARAMIXB1 | Array of Record | Array contendo os valores do Aviso de recebimento de carga | |||||||||||||||
| PARAMIXB2 | Array of Record | Array contendo os valores do Cabeçalho do documento de recebimento | |||||||||||||||
| PARAMIXB3 | Array of Record | Array contendo os valores dos itens do documento de recebimento | |||||||||||||||
| PARAMIXB4 | Numérico | Opção escolhida: 3-Inclusão 4-Alteração 5-Exclusão |