Chamar um formulario para digitar o CPF quando a venda for igual ou maior que 500

30/11/2022

Alguem poderia me ajudar com essa procedure ela esta me retornando os erros abaixo:
Erros:
[dcc32 Error] uPDV.pas(3854): E2029 'END' expected but ',' found
[dcc32 Error] uPDV.pas(3857): E2066 Missing operator or semicolon
[dcc32 Error] uPDV.pas(3877): E2029 '.' expected but ';' found

Minha Procedure:

procedure TFrmPDV.ChamaCPFCNPJ;
begin
if qryVendaTOTAL.Value >= 500 then
begin
try
frmCPFCNPJ := TfrmCPFCNPJ.Create(Application);
frmCPFCNPJ.ShowModal;
finally

qryVendaCODIGO.AsInteger, StrToFloatDef(edtPrecoP.Text, 0),
frmCPFCNPJ.edtCPFCNPJ.Text);
frmCPFCNPJ.Release;
if ehCaixaRapido = 'S' then
begin
if PageControl2.ActivePage = TabPDV then
InsereItem(EdtProdutoP.Text, '', StrToFloatDef(edtPrecoP.Text, 0),
StrToFloatDef(edtQtdP.Text, 1),
StrToFloatDef(lblTotalP.Caption, 0));

if PageControl2.ActivePage = tabRestaurante then
InsereItem(edtProdutoR.Text, edtOBSR.Text,
StrToFloatDef(edtPrecoR.Text, 0), StrToFloatDef(edtQtdR.Text, 1),
StrToFloatDef(lblTotalR.Caption, 0));

if PageControl2.ActivePage = tabDelivery then
InsereItem(edtProdutoD.Text, edtObsD.Text,
StrToFloatDef(EdtPrecoD.Text, 0), StrToFloatDef(EdtQtdD.Text, 1),
StrToFloatDef(lblTotalD.Caption, 0));

end;
end;
end;
end

Lenivaldo Souza

Curtir t�pico + 0

Responder

Posts

30/11/2022

Raimundo Pereira

Acrescente um ; no ultimo END

Troque End por End;

Responder

Gostei + 0

30/11/2022

Emerson Nascimento

teu c�digo identado:

procedure TFrmPDV.ChamaCPFCNPJ;
begin
	if qryVendaTOTAL.Value >= 500 then
	begin
		try
			frmCPFCNPJ := TfrmCPFCNPJ.Create(Application);
			frmCPFCNPJ.ShowModal;
		finally
			qryVendaCODIGO.AsInteger, StrToFloatDef(edtPrecoP.Text, 0), // isto era pra ser uma atribui��o?
			frmCPFCNPJ.edtCPFCNPJ.Text); // qual a finalidade desta linha?
			frmCPFCNPJ.Release;
		// aqui n�o deveria ter um end do bloco try..finally ???

			if ehCaixaRapido = 'S' then
			begin
				if PageControl2.ActivePage = TabPDV then
					InsereItem(EdtProdutoP.Text, '', StrToFloatDef(edtPrecoP.Text, 0),
						StrToFloatDef(edtQtdP.Text, 1),
						StrToFloatDef(lblTotalP.Caption, 0));

				if PageControl2.ActivePage = tabRestaurante then
					InsereItem(edtProdutoR.Text, edtOBSR.Text,
						StrToFloatDef(edtPrecoR.Text, 0), StrToFloatDef(edtQtdR.Text, 1),
						StrToFloatDef(lblTotalR.Caption, 0));

				if PageControl2.ActivePage = tabDelivery then
					InsereItem(edtProdutoD.Text, edtObsD.Text,
						StrToFloatDef(EdtPrecoD.Text, 0), StrToFloatDef(EdtQtdD.Text, 1),
						StrToFloatDef(lblTotalD.Caption, 0));

			end;
		end;
	end;
end // aqui deveria ter um ponto e v�rgula

Responder

Gostei + 0

27/12/2022

Arthur Heinrich

Voc� pode construir uma unit com fun��es �teis para serem utilizadas em todo o seu c�digo. Uma destas fun��es pode ser a que pede o CPF.

function SolicitaCPF : String;
var
  frmCPFCNPJ : TfrmCPFCNPJ;
begin
  Result := '';
  try
    frmCPFCNPJ := TfrmCPFCNPJ.Create(Application);
    if (frmCPFCNPJ.ShowModal = mrOK)
      then
        Result := frmCPFCNPJ.edtCPF.Text;
  finally
    frmCPFCNPJ.Close;
    //frmCPFCNPJ.Free; // Se no evento OnQueryClose n�o for especificado "Action:=caFree;"
  end;
end;

A�, no seu c�digo, voc� poderia fazer:

  if ((qryVendaCPF.Text='') and (qryVendaTOTAL.Value >= 500))
    then
      qryVendaCPF.Text := SolicitaCPF

Responder

Gostei + 0