Identificador de Regra

COM-000EXPDV18

Módulo: COM - Comercial.

Finalidade: Definir no sistema ERP qual o tipo de documento será gerado para o PDV. É possível gerar arquivos nos formatos: DAV (Documento Auxiliar de Venda), DAV-OS (Ordem de Serviço) e Pré-venda.

Este identificador também tem a finalidade de definir o tipo do faturamento do pedido.

Características: Para utilização da opção DAV-OS, é obrigatório a criação dos campos de usuário na tabela E120PED conforme especificação abaixo:

Nome do campo Mascara Descrição
USU_DOSDEF U[40] Descrição Resumida do Defeito.
USU_DOSMAR U[20] Marca.
USU_DOSMOD U[20] Número de fabricação do produto ou Modelo.
USU_DOSAFA U[20] Ano Fabricação.
USU_DOSPLA U[20] Placa.
USU_DOSRNV U[20] Número Renavan.

Por padrão a variável VSIntFatPed traz o valor definido no parâmetro global FatPedGlo.
Esta varialvel não se aplica a tela F120DPE de duplicação de pedidos, porque a duplicação de um pedido implica em uma cópia fiel do pedido original respeitando o tipo de faturamento deste pedido.

As telas onde este identificador é chamado são: F120GPD, F120GPC, F129PED, F129UFP, F120DPE.

Tela: Gestão Empresarial | ERP Varejo

Transação: Não se aplica.

Regra:

/* Na regra exemplo abaixo, foi criada na tabela E070INT o campo de usuário com o nome USU_TIPDOC ligado a uma enumeração de usuário de nome qualquer, esta enumeração tem as chaves do tipo string de 2 digitos e pode receber os seguintes valores
01 - DAV
02 - PRÉ-VENDA
03 - DAV-OS
O campo de usuário foi disponibilizado na tela F070INT.
A regra abaixo lê o valor do campo e retorna para o sistema qual o tipo escolhido, considerando a empresa e filial que está logada no sistema.
*/
Definir Numero VSIntCodEmp;
Definir Numero VSIntCodFil;
Definir Alfa VSIntTipDoc;
Definir Alfa xCursorTipDoc;
Inicio
SQL_Criar(xCursorTipDoc);

SQL_DefinirComando(xCursorTipDoc,"SELECT E070INT.USU_TIPDOC FROM E070INT WHERE E070INT.CODEMP = :CodEmp AND E070INT.CODFIL = :CodFil");

SQL_DefinirInteiro(xCursorTipDoc,"CodEmp",CodEmp);
SQL_DefinirInteiro(xCursorTipDoc,"CodFil",CodFil);
SQL_AbrirCursor(xCursorTipDoc);
Se (SQL_EOF(xCursorTipDoc) = 0) {
SQL_RetornarALfa(xCursorTipDoc,"USU_TIPDOC",VSIntTipDoc);
} Senao {
VSIntTipDoc = "01";
}
SQL_FecharCursor(xCursorTipDoc);
SQL_Destruir(xCursorTipDoc);
Fim;

Variáveis Disponibilizadas: