Re: Validação dos Campos

AlexandreADC · 17 Maio, 2011

O Grande problema é que eu nem sequer passo algum valor para o ferroSub e DCL e o componente reclama o não preenchimento dele no comando "Validar"...

Cheguei a comentar o código de alimentação mas o problema continua... Alguma sugestão?


//            if (Filtra_Numeros(cdsFerrovarioCNPJ.AsString)<>'') or (cdsFerrovarioRAZSOCIAL_NOME.AsString <> '') or

//               (cdsFerrovarioCOD_FERROVIA_SUBSTITUTA.AsString <> '') or (cdsFerrovarioINSCE.AsString <> '')

//            then begin

//

//               Ferrov.ferroSub.CNPJ := Filtra_Numeros(cdsFerrovarioCNPJ.AsString);

//               Ferrov.ferroSub.cInt :=

//                cdsFerrovarioCOD_FERROVIA_SUBSTITUTA.AsString;

//               Ferrov.ferroSub.IE := cdsFerrovarioINSCE.AsString;

//               Ferrov.ferroSub.xNome := cdsFerrovarioRAZSOCIAL_NOME.AsString;

//

//               Ferrov.ferroSub.EnderFerro.xLgr := cdsFerrovarioLOGRADOURO.AsString;

//               Ferrov.ferroSub.EnderFerro.nro :=

//                cdsFerrovarioENDER_NUMERO.AsString;

//               Ferrov.ferroSub.EnderFerro.xCpl :=

//                cdsFerrovarioCOMPLEMENTO.AsString;

//               Ferrov.ferroSub.EnderFerro.xBairro := cdsFerrovarioBAIRRO.AsString;

//               Ferrov.ferroSub.EnderFerro.cMun :=

//                cdsFerrovarioMUNICIPIO_IBGE.AsInteger;

//               Ferrov.ferroSub.EnderFerro.xMun :=

//                cdsFerrovarioMUNICIPIO_NOME.AsString;

//               Ferrov.ferroSub.EnderFerro.CEP := StrToIntDef

//                (Filtra_Numeros(cdsFerrovarioCEP.AsString), 0);

//               Ferrov.ferroSub.EnderFerro.UF := cdsFerrovarioMUNICIPIO_UF.AsString;

//            end;


//				if not cdsDCL.IsEmpty then

//				begin

//					cdsDCL.DisableControls;

//					cdsDCL.First;

//					while not cdsDCL.Eof do

//					begin

//						with Ferrov.DCL.Add do

//						begin

//							serie := cdsDCLSERIE_DCL.AsString;

//							nDCL := IntToStr(cdsDCLNUMERO_DCL.AsInteger);

//							dEmi := cdsDCLDT_EMISSAO.AsDateTime;

//							qVag := cdsDCLQUANT_VAGOES.AsInteger;

//							pCalc := cdsDCLPESO.AsCurrency;

//							vTar := cdsDCLVLR_TARIFA.AsCurrency;

//							vFrete := cdsDCLVLR_FRETE.AsCurrency;

//							vSAcess := cdsDCLVLR_SERVICOS_ACESSORIOS.AsCurrency;

//							vTServ := cdsDCLVLR_TOTAL_SERVICO.AsCurrency;

//							idTrem := cdsDCLID_TREM.AsString;

//

//							if not cdsVagoesDCL.IsEmpty then

//							begin

//								cdsVagoesDCL.DisableControls;

//								cdsVagoesDCL.First;

//								while not cdsVagoesDCL.Eof do

//								begin

//									with detVagDCL.Add do

//									begin

//										nVag := cdsVagoesDCLNUM_VAGAO.AsInteger;

//										cap := cdsVagoesDCLCAP_TONELADAS.AsCurrency;

//										tpVag := cdsVagoesDCLTP_VAGAO.AsString;

//										pesoR := cdsVagoesDCLPESO_REAL.AsCurrency;

//										pesoBC :=

//										 cdsVagoesDCLPESO_BASE_CALC_FRETE.AsCurrency;

//

//										if not cdsLacresDCL.IsEmpty then

//										begin

//											cdsLacresDCL.DisableControls;

//											cdsLacresDCL.First;

//											while not cdsLacresDCL.Eof do

//											begin

//												with lacDetVagDCL.Add do

//												begin

//													lacDetVagDCL.Items[k].nLacre :=

//													 cdsLacresDCLNUMERO_LACRE.AsString;

//													cdsLacresDCL.Next;

//												end;

//											end;

//											cdsLacresDCL.EnableControls;

//										end;

//

//										if not cdsContainersDCL.IsEmpty then

//										begin

//											cdsContainersDCL.DisableControls;

//											cdsContainersDCL.First;

//											while not cdsContainersDCL.Eof do

//											begin

//												with contDCL.Add do

//												begin

//													nCont :=

//													 cdsContainersDCLNUMERO_CONTAINER.AsString;

//													dPrev :=

//													 cdsContainersDCLDT_PREV_ENTREGA

//													 .AsDateTime;

//													cdsContainersDCL.Next;

//												end;

//											end;

//											cdsContainersDCL.EnableControls;

//										end;

//										cdsVagoesDCL.Next;

//									end;

//								end;

//								cdsVagoesDCL.EnableControls;

//							end;

//

//						end;

//						cdsDCL.Next;

//						Inc(i);

//					end;

//					cdsDCL.EnableControls;

//				end;


				if not cdsvagoes.IsEmpty then

				begin

					cdsvagoes.DisableControls;

					cdsvagoes.First;

					while not cdsvagoes.Eof do

					begin

						with Ferrov.detVag.Add do

						begin

							nVag := cdsVagoesNUM_VAGAO.AsInteger;

							cap := cdsVagoesCAP_TONELADAS.AsCurrency;

							tpVag := cdsVagoesTP_VAGAO.AsString;

							pesoR := cdsVagoesPESO_REAL.AsCurrency;

							pesoBC := cdsVagoesPESO_BASE_CALC_FRETE.AsCurrency;


							if not cdsVagoesLacres.IsEmpty then

							begin

								cdsVagoesLacres.DisableControls;

								cdsVagoesLacres.First;


								while not cdsVagoesLacres.Eof do

								begin

									with lacDetVag.Add do

									begin

										nLacre := cdsVagoesLacresNUMERO_LACRE.AsString;

										cdsVagoesLacres.Next;

									end;

								end;

								cdsVagoesLacres.EnableControls;

							end;


							if not cdsVagoesContainers.IsEmpty then

							begin

								cdsVagoesContainers.DisableControls;

								cdsVagoesContainers.First;


								while not cdsVagoesLacres.Eof do

								begin

									with contVag.Add do

									begin

										nCont :=

										 cdsVagoesContainersNUMERO_CONTAINER.AsString;

										dPrev :=

										 cdsVagoesContainersDT_PREV_ENTREGA.AsDateTime;


										cdsVagoesLacres.Next;

									end;

								end;

								cdsVagoesLacres.EnableControls;

							end;


							cdsvagoes.Next;


						end;

					end;


					cdsvagoes.EnableControls;

				end;

Mas ele passa no código referente ao DetVag