Identificador de Regra

e140ipv.PesLiq = 1;
e140ipv.pesbru = 5;

      
						
@ Tela onde o identificador de regras está sendo chamado. @
@ Utilizada nas telas F115CAR, F115NPF e F115COS. @
Definir Alfa VenATela;
            
@	Código da Empresa @
Definir Numero VSCodEmp;
						
@	Código da Filial @
Definir Numero VSCodFil;
						
Definir Numero VSSeqIte;
						
@ Tipo da nota fiscal @
Definir Numero VSTipNfs;
						
@ Número Nota Fiscal @
Definir Numero VSNumero;

						
@	Código da Série	@
Definir Alfa VSCodSnf;
						
@ Transação de produto @
Definir Alfa VSTnsPro;
						
@ Codigo do Produto    @
Definir Alfa VSCodPro;
						
@ Codigo da Derivação @
Definir Alfa VSCodDer;
						
@ Numero do Lote @
Definir Alfa VSCodLot;
						
@ Natureza da Operação @
Definir Alfa VSNopPro;
						
Definir Alfa xCursor_Carga;
						
Definir Alfa xCursor_Ces;
						
Definir Alfa xComando;
						
Definir Numero xCodEmp;
Definir Numero xCodFil;
Definir Numero xNumAne;
Definir Numero xNumPfa;
						
Definir Numero xPesSac;
Definir Numero xPesEnc;
						
VSCodEmp = E140IPV.CodEmp;
VSCodFil = E140IPV.CodFil;
VSCodPro = E140IPV.CodPro;
VSCodDer = E140IPV.CodDer;
VSCodLot = E140IPV.CodLot;
VSNopPro = E140IPV.NopPro;
VSNumNfv = E140IPV.NumNfv;
VSCodSnf = E140IPV.CodSnf;
VSCodFor = E140IPV.CodFor;
VSSeqIpv = E140IPV.SeqIpv;
VSQtdFat = E140IPV.QtdFat;
VSPesLiq = E140IPV.PesLiq;
VSPesBru = E140IPV.PesBru;
						
Se (VenATela = "F115CAR")
inicio
						
Se ( (VSCodEmp = 0) ou
(VSCodFil = 0) ou
(VSCodSnf = " ") ou
(VSCodSnf = "") ou
(VSNumNfv = 0)
)
						
inicio
						
/*
Se ainda não tem a chaves da nota vai embora,
pois não é possível chegar até a Pré fatura e controle de embarque.
*/
						
Cancel(1);
fim;
						
SQL_Criar(xCursor_Carga);
						
@ Busca a pré fatura que a nota está faturando @
						
xComando = "SELECT CODEMP, CODFIL, NUMANE, NUMPFA, FILNFV, SNFNFV, NUMNFV FROM E135PFA \
WHERE CODEMP=:PCODEMP                                     \
AND FILNFV=:PFILNFV                                     \
AND SNFNFV=:PSNFNFV                                     \
AND NUMNFV=:PNUMNFV                                     ";
						
SQL_DefinirComando(xCursor_Carga, xComando);
Sql_DefinirInteiro(xCursor_Carga,"pCodEmp",VSCodEmp);
Sql_DefinirInteiro(xCursor_Carga,"pFilNfv",VSCodFil);
Sql_DefinirAlfa(xCursor_Carga,"pSnfNfv",VSCodSnf);
Sql_DefinirInteiro(xCursor_Carga,"pNumNfv",VSNumNfv);

						
SQL_AbrirCursor(xCursor_Carga);
						
@ Verifica se encontrou carga com o número da nota fiscal gerada @
Se (SQL_EOF(xCursor_Carga) = 0)
inicio
						
SQL_RetornarInteiro(xCursor_Carga, "CodEmp", xCodEmp);
SQL_RetornarInteiro(xCursor_Carga, "CodFil", xCodFil);
SQL_RetornarInteiro(xCursor_Carga, "NumAne", xNumAne);
SQL_RetornarInteiro(xCursor_Carga, "NumPfa", xNumPfa);
						
SQL_FecharCursor(xCursor_Carga);
SQL_Destruir(xCursor_Carga);
						
SQL_Criar(xCursor_Ces);
						
@ Faz select para buscar dados da E115CES com a analise e pré fatura @
xComando = "SELECT * FROM E115CES, E115PRO       \
WHERE E115PRO.CODEMP = E115CES.CODEMP \
AND E115PRO.CODFIL = E115CES.CODFIL \
AND E115PRO.DATENT = E115CES.DATENT \
AND E115PRO.SEQENT = E115CES.SEQENT \
AND E115PRO.CODEMP =:PCODEMP        \
AND E115PRO.FILANE =:PFILANE        \
AND E115PRO.NUMANE =:PNUMANE        \
AND E115PRO.NUMPFA =:PNUMPFA        ";
						
SQL_DefinirComando(xCursor_Ces, xComando);
Sql_DefinirInteiro(xCursor_Ces,"pCodEmp",xCodEmp);
Sql_DefinirInteiro(xCursor_Ces,"pFilAne",xCodFil);
Sql_DefinirInteiro(xCursor_Ces,"pNumAne",xNumAne);
Sql_DefinirInteiro(xCursor_Ces,"pNumPfa",xNumPfa);
						
SQL_AbrirCursor(xCursor_Ces);
						
@ Verifica se encontrou dados na E115CES com a analise e pré fatura @
Se (SQL_EOF(xCursor_Ces) = 0)
inicio
SQL_RetornarFlutuante(xCursor_Ces, "PesSac", xPesSac);
SQL_RetornarFlutuante(xCursor_Ces, "PesEnc", xPesEnc);
						
SQL_FecharCursor(xCursor_Ces);
SQL_Destruir(xCursor_Ces);
						
/*
Utilizar qualquer campo do cursor da tabela E115CES:
PesEnc: Peso registrado na entrada
PesEni: Peso informado na entrada
PesSac: Peso registrado na saída
PesSai: Peso informado na saída
*/
						
@ Retornar o peso desejado para o item da nota fiscal @
E140IPV.PesLiq = 10;
E140IPV.Pesbru = 20;
fim;
fim;
fim;