Histórico da Página

Essa rotina permite o registro de qualquer movimento de entrada de mercadorias, feito através de um remito proveniente uma guia de remessa proveniente de fornecedores, ou de beneficiamento proveniente de clientes.

...

O primeiro parâmetro determina o tipo de remito guia de remessa que está sendo cadastradocadastrada.

Cada país utiliza uma nomenclatura para identificar o remito a guia de remessa de entrada:

(*)
Nome	Países
Remito
Remision
Conduce
Nota de Entrega
Guia de Remision
Guia de Recepcion

...

Wiki Markup
Na entrada da rotina será solicitado o tipo de guia de remitoremessa que será digitado (esta configuração pode ser alterada em qualquer momento na rotina mediante a tecla [F12]).

Preencha os dados conforme orientação do help de campo e confirme.
Será apresentada uma nova tela de parâmetros, em que é necessário informar as configurações gerais da rotina.
Será apresentada uma tela com os remitos já emitidosas guias de remessa já emitidas.
Selecione a opção Incluir.

O sistema apresenta a tela de inclusão. Na parte superior desta tela, encontram-se os campos que irão compor o cabeçalho do remitoda guia de remessa. No meio da tela, estão os itens do remito e da guia de remessa e na parte Inferior, as Pastas do Rodapé;

...

Importante:

Quando o parâmetro MV_DISTMOV estiver ativo, abrirá a tela para distribuição da quantidade de entrada em endereços/números de série, logo após a confirmação da inclusão de entrada, facturas de entrada, remito guia de remessa de entrada ou apontamento de produção.

...

Aviso

title	Importante

Para a utilização da rotina automática, utilizando a função MsExecAuto(), deve ser executada a instrução SetFunName("MATA102N").
A seguir, um exemplo de utilização:

Bloco de código

language	cpp
title	Exemplo de execução automática
linenumbers	true
collapse	true

#INCLUDE "RWMAKE.CH"								//Importação de bibliotecas
#INCLUDE "TBICONN.CH"   							//Importação de bibliotecas
  
User Function xMta102n()
    Local _aCabec       := {}						//AjusteArray com os dados do cabeçalho
    Local _aItens       := {}						//AjusteArray com os datos dos itens
    Local aLinha        := {}						//AjusteArray de trabalho
    Local cDoc          := ""						//Inicialização do número do documento
 
    Private aRecsSF1    := {}						//AjusteArray para associação de Notas
    Private lMsErroAuto := .F.						//Controle de execução de rotina
  
    cDoc :=  FWInputBox("Número documento", "") 	//Janela emergente onde será incluído o número do documento
  
    //Encabezado
    aadd(_aCabec,{"F1_FILIAL","0101"})				//Sucursal
    aadd(_aCabec,{"F1_DOC",cDoc})					//Número de Documento
    aadd(_aCabec,{"F1_SERIE","REM"})				//Série
    aadd(_aCabec,{"F1_FORNECE","000001"})			//Fornecedor
    aadd(_aCabec,{"F1_LOJA","01"})					//Loja
    aadd(_aCabec,{"F1_TIPO","N"})					//Tipo de Nota Fiscal
    aadd(_aCabec,{"F1_FORMUL","N"})					//Formulário Próprio
    aadd(_aCabec,{"F1_EMISSAO",dDataBase})			//Data de Emissão
    aadd(_aCabec,{"F1_TXMOEDA",1})					//Taxa da Moeda
    aadd(_aCabec,{"F1_TIPODOC","60"})				//Identificador de Documento
  
    //Ítems
    aadd(_aItens,{"D1_COD","0101001        ",NIL})	//Código do Produto
    aadd(_aItens,{"D1_QUANT",1,NIL})				//Quantidade
    aadd(_aItens,{"D1_VUNIT",712.00,NIL})			//Valor Unitário
    aadd(_aItens,{"D1_TOTAL",712.00,NIL})			//Total
    aadd(_aItens,{"D1_TES","001",NIL})				//TES
    aadd(_AItens,{"D1_TIPO","N",NIL})				//Tipo do Documento
    aadd(_AItens,{"D1_CUSTO",712.00,NIL})			//Custo de Entrada Moeda 1
    aadd(_AItens,{"D1_CUSORI",712.00,NIL})			//Custo Original Moeda 1
    aadd(aLinha,_aItens)							//Incluir o ajustearray de itens no ajustearray do trabalho
    
    SetFunName("MATA102N")							//Definir o "nome" da função executante como "MATA102N"

    MsExecAuto({|x, y, z| Mata102N(x, y, z)}, _aCabec, aLinha, 3)			//Execução automática pelo MsExecAuto
  
    If lMsErroAuto
        MostraErro()														//Se ocorrer algum erro, esta será apresentado
    Else
        MsgInfo("Guia de Remessa de Entrada incluída: " + cDoc, "ExecAuto MATA102N") //Se não ocorrer erro, será enviada uma mensagem de processo com sucesso.
    Endif   
  
Return Nil																	//Fim da execução

...

Árvore de páginas

Versões comparadas

Versão antiga 4

Nova versão Atual

Chave