Marcelosoft
Mestre
Registrado: Domingo, 21 de Janeiro de 2007
Mensagens: 862
|
 Enviada: Seg Jan 23, 2012 11:17 am Assunto: Duvidas de como usar o comando WriteLn - Delphi 5 - Paradox |
 |
|
A quem puder me ajudar, agradeço desde já !
Estou tendo problema ao imprimir um cupom na impressora não fiscal da DR 700 da Daruma e nã impressora LX 300 não dá problema !
O problema é que qdo imprime alguns cupons não fiscal das vendas dos produtos ela para de imprimir que tenho que fechar o sistema todo para ser impresso o ticket de venda. Toda vez tenho que fazer isso !
Obs: Só me dá este problema na DR 700 (Daruma) não fiscal !
Já usei driver generico de somente texto e o spool do driver da DR 700, mas continua o mesmo problema. Uso os comandos "WriteLn", que estão discriminados no código abaixo !
Att.
Marcelo.
| Código: | procedure TCadVendas.BitBtn3Click(Sender: TObject);
var // Vendas
nrvenda : Integer;
Pagto_Din, Pagto_APagar, Pagto_CartaoCred, Pagto_CartaoDeb, Pagto_Cheq, Pagto_CheqPre, Pagto_Finan,
VlrVenda_Vivi, VlrVenda_Gabi, VlrVenda_Regiane, VlrVenda_Angela, VlrVenda_Claudio : String;
F : TextFile;
begin
If CV_TipoPagto.Text = '' Then
Begin
ShowMessage('Atenção !!!... Escolher o Tipo de Pagto !');
CV_TipoPagto.SetFocus;
Abort;
End;
{Configura a Impressão}
{DR 700 - Daruma}
if TerminalSel='01' then // PDV1
AssignFile(F,'COM1')
else if TerminalSel='02' then // PDV2
// AssignFile(F,'\\PDV1\PDV1')
AssignFile(F,'COM1')
else if TerminalSel='03' then // PDV3
AssignFile(F,'\\PDV2\PDV2')
else if TerminalSel='04' then // PDV4
AssignFile(F,'\\PDV1\PDV1')
else if TerminalSel='05' then // PDV5
AssignFile(F,'\\PDV1\PDV1');
ReWrite(F);
With DM1 Do
If Application.MessageBox('Deseja Imprimir ?','MF VENDAS',MB_IconQuestion + MB_YesNo)=MrYes Then
Begin
If TabCadVendas.Active Then
TabCadVendas.Close;
TabCadVendas.IndexName:='PorNr_Venda';
TabCadVendas.Open;
TabCadVendas.Last;
nrvenda:=TabCadVendas.FieldByName('Nr_Venda').AsInteger+1;
If TabCadEstoq.Active Then
TabCadEstoq.Close;
TabCadEstoq.IndexName:='PorCod_FabrBarrasEstoq';
TabCadEstoq.Open;
TabCadEstoq.First;
If TabCadVendasAux.Active Then
TabCadVendasAux.Close;
TabCadVendasAux.IndexName:='PorVendedor';
TabCadVendasAux.Open;
TabCadVendasAux.First;
If TabCadUsuario.Active Then
TabCadUsuario.Close;
TabCadUsuario.IndexName:='PorNome';
TabCadUsuario.Open;
TabCadUsuario.First;
SpeedButton2.Click;
WriteLn(F,#27#15+'Rua:'+ ' '+ 'ANTONIO DA SILVA MELO, S/No.' + ' ' + 'CEP: 11425-180');
WriteLn(F,'-------------------------------------------------');
WriteLn(F,'Cod. Produto');
WriteLn(F,'Descr. Produto');
WriteLn(F,' Valor Unit' + ' ' + 'Qtd' + ' ' + 'SubTotal');
WriteLn(F,'-------------------------------------------------');
TabCadVendasAux.First;
While not TabCadVendasAux.Eof Do
Begin
Try
TabCadVendas.Insert;
Except
ShowMessage('Atenção !!!... Código nº 01 - Cad. Vendas =>> Favor Comunicar a Marques e Ferreira !');
End;
If CV_VendedorExato.Text = '' Then
Begin
ShowMessage('Atenção !!!... Selecionar O Vendedor !');
CV_VendedorExato.SetFocus;
Abort;
End;
If CV_TipoPagto.Text = 'Dinheiro' Then
Begin
Pagto_Din := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_TipoPagto.Text = 'A Pagar' Then
Begin
Pagto_APagar := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_TipoPagto.Text = 'Cartao Credito' Then
Begin
Pagto_CartaoCred := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_TipoPagto.Text = 'Cartao Debito' Then
Begin
Pagto_CartaoDeb := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_TipoPagto.Text = 'Cheque' Then
Begin
Pagto_Cheq := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_TipoPagto.Text = 'Cheque Pre - Datado' Then
Begin
Pagto_CheqPre := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_TipoPagto.Text = 'Financeira' Then
Begin
Pagto_Finan := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_VendedorExato.Text = 'VIVI' Then
Begin
VlrVenda_Vivi := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_VendedorExato.Text = 'GABI' Then
Begin
VlrVenda_Gabi := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_VendedorExato.Text = 'REGIANE' Then
Begin
VlrVenda_Regiane := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_VendedorExato.Text = 'ANGELA' Then
Begin
VlrVenda_Angela := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_VendedorExato.Text = 'CLAUDIO' Then
Begin
VlrVenda_Claudio := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
{Nº da Venda}
TabCadVendas.FieldByName('Nr_Venda').AsInteger := NrVenda;
Label2.Caption := TabCadVendas.FieldByName('Nr_Venda').AsString;
{Data e Hora do Sistema }
TabCadVendas.FieldByName('Dt_Venda').AsDateTime := StrToDate(Label14.Caption);
TabCadVendas.FieldByName('Hr_Venda').AsDateTime := StrToTime(Label20.Caption);
{Descrição de Peças - Estoque} {Tabela Temporária}
TabCadVendas.FieldByName('Cod_FabrBarrasEstoq').AsString := TabCadVendasAux.FieldByName('Cod_FabrBarras').AsString;
TabCadVendas.FieldByName('Descr_Prod').AsString := TabCadVendasAux.FieldByName('Descr_Prod').AsString;
TabCadVendas.FieldByName('Linha').AsString := TabCadVendasAux.FieldByName('Linha').AsString;
TabCadVendas.FieldByName('Vlr_Venda').AsString := TabCadVendasAux.FieldByName('Vlr_Venda').AsString;
TabCadVendas.FieldByName('Qtd').AsString := TabCadVendasAux.FieldByName('Qtd').AsString;
TabCadVendas.FieldByName('Sub_Total').AsString := TabCadVendasAux.FieldByName('Sub_Total').AsString;
TabCadVendas.FieldByName('Venda_Fechada').AsString := 'S';
{Valores}
TabCadVendas.FieldByName('Tot_Geral').AsString := Label25.Caption;
TabCadVendas.FieldByName('Troco').AsString := Label8.Caption;
TabCadVendas.FieldByName('Vlr_Pago').AsString := RealEdit1.Text;
{Autorização da O.S} {Funcionário}
{TabCadVendas.FieldByName('Vendedor').AsString := TabCadVendasAux.FieldByName('Vendedor').AsString;}
TabCadVendas.FieldByName('Vendedor').AsString := UpperCase(CV_VendedorExato.Text);
{Tipo de Pagto}
TabCadVendas.FieldByName('Tipo_Pagto').AsString := UpperCase(CV_TipoPagto.Text);
TabCadVendas.FieldByName('Vlr_Dinheiro').AsString := Pagto_Din;
TabCadVendas.FieldByName('Vlr_APagar').AsString := Pagto_APagar;
TabCadVendas.FieldByName('Vlr_CartaoCred').AsString := Pagto_CartaoCred;
TabCadVendas.FieldByName('Vlr_CartaoDeb').AsString := Pagto_CartaoDeb;
TabCadVendas.FieldByName('Vlr_Cheque').AsString := Pagto_Cheq;
TabCadVendas.FieldByName('Vlr_ChequePre').AsString := Pagto_CheqPre;
TabCadVendas.FieldByName('Vlr_Financeira').AsString := Pagto_Finan;
{Valores das Vendas de Cada Vendedor}
TabCadVendas.FieldByName('Vendas_Vivi').AsString := VlrVenda_Vivi;
TabCadVendas.FieldByName('Vendas_Gabi').AsString := VlrVenda_Gabi;
TabCadVendas.FieldByName('Vendas_Regiane').AsString := VlrVenda_Regiane;
TabCadVendas.FieldByName('Vendas_Angela').AsString := VlrVenda_Angela;
TabCadVendas.FieldByName('Vendas_Claudio').AsString := VlrVenda_Claudio;
{ TabCadVendas.FieldByName('Desc_ParcVenda').AsString := UpperCase(CV_Desc.Text);}
{ TabCadVendas.FieldByName('Vlr_Desc').AsString := UpperCase(CV_ValorDesc.Text);}
{ TabCadVendas.FieldByName('Qtd_ParcVenda').AsInteger := StrToInt(CV_NrParc.Text);}
{ TabCadVendas.FieldByName('Vlr_ParcVenda').AsString := UpperCase(CV_ValorParcelado.Text);}
{TabCadVendas.FieldByName('Juros_Parc').AsString := UpperCase(CV_Juros.Text);
TabCadVendas.FieldByName('Total_JurosParc').AsString := UpperCase(CV_TotalJuros.Text);}
{Nº do Cartão}
{TabCadVendas.FieldByName('Nr_AutentCartao').AsString := UpperCase(CV_NrAutentCartao.Text);}
{Gerente Autorizado pela Venda de Inadimplentes}
{TabCadVendas.FieldByName('Gerente_Autorizado').AsString := UpperCase(CV_Gerente.Text);}
{Tipo de Venda - Se é Venda ou Se é Venda através do Orçamento}
TabCadVendas.FieldByName('Tipo_Venda').AsString := 'V';
Try
TabCadVendas.Post;
Except
ShowMessage('Atenção !!!... Código nº 01 - Cad. Vendas =>> Favor Comunicar a Marques e Ferreira !');
End;
WriteLn(F,TabCadVendasAux.FieldByName('Cod_FabrBarras').AsString);
WriteLn(F,TabCadVendasAux.FieldByName('Descr_Prod').AsString);
WriteLn(F,' ' + FormatFloat('###0.00',TabCadVendasAux.FieldByName('Vlr_Venda').AsFloat) + ' ' + TabCadVendasAux.FieldByName('Qtd').AsString + ' ' + FormatFloat('###0.00',TabCadVendasAux.FieldByName('Sub_Total').AsFloat));
Try
TabCadVendasAux.Next;
Except
ShowMessage('Atenção !!!... Código nº 05 - Cad. VendaAux =>> Favor Comunicar a Marques e Ferreira !');
End;
End;
WriteLn(F,'--------------------------------------------------');
WriteLn(F,#27#15+' No. Venda:' + ' ' + Label2.Caption + ' ' + 'Data:' + ' ' + Label14.Caption + ' ' + 'Hora:' + ' ' + Label20.Caption);
WriteLn(F,'--------------------------------------------------');
WriteLn(F,'Tipo Pagto:'+' ' + CV_TipoPagto.Text + ' ' + 'Vendedor:'+ ' ' + CV_VendedorExato.Text);
WriteLn(F,' Total.....:' + ' ' + Label25.Caption);
WriteLn(F,' Valor Pago:' + ' ' + RealEdit1.Text);
WriteLn(F,' Troco.....:' + ' ' + Label8.Caption);
WriteLn(F,' Volte Sempre !');
WriteLn(F,' Grato pela Preferencia !');
WriteLn(F,' SEM VALOR FISCAL');
WriteLn(F);
WriteLn(F);
WriteLn(F);
WriteLn(F);
WriteLn(F);
WriteLn(F);
WriteLn(F);
WriteLn(F);
WriteLn(F);
WriteLn(F);
CloseFile(F);
TabCadVendasAux.First;
While not TabCadVendasAux.Eof Do
Begin
Try
TabCadVendasAux.Delete;
Except
ShowMessage('Exclusão de Registro... Inadequado! Comunicar a Marques e Ferreira !');
End;
End;
// Clear;
Label25.Caption:='0,00';
Label8.Caption:='0,00';
RealEdit1.Text:='0,00';
RealEdit2.Text:='0,00';
// BitBtn1.Enabled:=False;
BitBtn3.Enabled:=False;
BitBtn4.Enabled:=False;
CadVendas.BitBtn7.Visible:=False;
BitBtn7.Visible:=False;
BitBtn3.Visible:=True;
CV_CodFabrBarras.SetFocus;
TabCadEstoq.Filtered:=False;
TabCadOrca.Filtered:=False;
CheckBox1.Checked:=False;
CheckBox2.Checked:=False;
CheckBox3.Checked:=False;
CheckBox4.Checked:=False;
GroupBox2.Visible:=False;
GroupBox3.Visible:=False;
BitBtn11.Visible:=False;
End
Else
Begin
If TabCadVendas.Active Then
TabCadVendas.Close;
TabCadVendas.IndexName:='PorNr_Venda';
TabCadVendas.Open;
TabCadVendas.Last;
nrvenda:=TabCadVendas.FieldByName('Nr_Venda').AsInteger+1;
If TabCadEstoq.Active Then
TabCadEstoq.Close;
TabCadEstoq.IndexName:='PorCod_FabrBarrasEstoq';
TabCadEstoq.Open;
TabCadEstoq.First;
If TabCadVendasAux.Active Then
TabCadVendasAux.Close;
TabCadVendasAux.IndexName:='PorVendedor';
TabCadVendasAux.Open;
TabCadVendasAux.First;
If TabCadUsuario.Active Then
TabCadUsuario.Close;
TabCadUsuario.IndexName:='PorNome';
TabCadUsuario.Open;
TabCadUsuario.First;
SpeedButton2.Click;
Begin
TabCadVendasAux.First;
While not TabCadVendasAux.Eof Do
Begin
{ TabCadEstoq.Filtered := False;
TabCadEstoq.Filter := 'Cod_FabrBarrasEstoq ='+QuotedStr(TabCadVendasAux['Cod_FabrBarras']);
TabCadEstoq.Filtered := True;
Try
TabCadEstoq.Edit;
Except
ShowMessage('Atenção !!!... Código nº 04 - Cad. Estoque =>> Favor entrar em Contato com a Marques e Ferreira !');
End;
TabCadEstoq['Qtd_Max']:=TabCadEstoq['Qtd_Max']-StrToFloat(TabCadVendasAux['Qtd']);
Try
TabCadEstoq.Post;
Except
ShowMessage('Atenção !!!... Código nº 02 - Cad. Estoque =>> Favor entrar em Contato com a Masques e Ferreira !');
End;}
Try
TabCadVendas.Insert;
Except
ShowMessage('Atenção !!!... Código nº 01 - Cad. Vendas =>> Favor entrar em Contato com a Marques e Ferreira !');
End;
If CV_VendedorExato.Text = '' Then
Begin
ShowMessage('Atenção !!!... Selecionar O Vendedor !');
CV_VendedorExato.SetFocus;
Abort;
End;
If CV_TipoPagto.Text = 'Dinheiro' Then
Begin
Pagto_Din := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_TipoPagto.Text = 'A Pagar' Then
Begin
Pagto_APagar := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_TipoPagto.Text = 'Cartao Credito' Then
Begin
Pagto_CartaoCred := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_TipoPagto.Text = 'Cartao Debito' Then
Begin
Pagto_CartaoDeb := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_TipoPagto.Text = 'Cheque' Then
Begin
Pagto_Cheq := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_TipoPagto.Text = 'Cheque Pre - Datado' Then
Begin
Pagto_CheqPre := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_TipoPagto.Text = 'Financeira' Then
Begin
Pagto_Finan := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_VendedorExato.Text = 'VIVI' Then
Begin
VlrVenda_Vivi := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_VendedorExato.Text = 'GABI' Then
Begin
VlrVenda_Gabi := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_VendedorExato.Text = 'REGIANE' Then
Begin
VlrVenda_Regiane := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_VendedorExato.Text = 'ANGELA' Then
Begin
VlrVenda_Angela := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
If CV_VendedorExato.Text = 'CLAUDIO' Then
Begin
VlrVenda_Claudio := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;
{ If CV_VendedorExato.Text = 'MF' Then
Begin
VlrVenda_Marcela := TabCadVendasAux.FieldByName('Sub_Total').AsString;
End;}
{Nº da Venda}
TabCadVendas.FieldByName('Nr_Venda').AsInteger := NrVenda;
Label2.Caption := TabCadVendas.FieldByName('Nr_Venda').AsString;
{Data e Hora do Sistema }
TabCadVendas.FieldByName('Dt_Venda').AsDateTime := StrToDate(Label14.Caption);
TabCadVendas.FieldByName('Hr_Venda').AsDateTime := StrToTime(Label20.Caption);
{Dados do Cliente para Entrega} // Criar estes campos na tabela de Vendas
{TabCadVendas.FieldByName('Cpf_Entrega').AsString := UpperCase(CV_Cpf.Text);
TabCadVendas.FieldByName('Nome_Entrega').AsString := UpperCase(CV_Nome.Text);
TabCadVendas.FieldByName('End_Entrega').AsString := UpperCase(CV_End.Text);
TabCadVendas.FieldByName('Bairro_Entrega').AsString := UpperCase(CV_Bairro.Text);
TabCadVendas.FieldByName('Cidade_Entrega').AsString := UpperCase(CV_Cidade.Text);
TabCadVendas.FieldByName('TelRes_Entrega').AsString := UpperCase(CV_TelRes.Text);
TabCadVendas.FieldByName('Cel_Entrega').AsString := UpperCase(CV_Cel.Text);}
{Descrição de Peças - Estoque} {Tabela Temporária}
TabCadVendas.FieldByName('Cod_FabrBarrasEstoq').AsString := TabCadVendasAux.FieldByName('Cod_FabrBarras').AsString;
TabCadVendas.FieldByName('Descr_Prod').AsString := TabCadVendasAux.FieldByName('Descr_Prod').AsString;
TabCadVendas.FieldByName('Vlr_Venda').AsString := TabCadVendasAux.FieldByName('Vlr_Venda').AsString;
TabCadVendas.FieldByName('Qtd').AsString := TabCadVendasAux.FieldByName('Qtd').AsString;
TabCadVendas.FieldByName('Sub_Total').AsString := TabCadVendasAux.FieldByName('Sub_Total').AsString;
TabCadVendas.FieldByName('Venda_Fechada').AsString := 'S';
{Valores}
TabCadVendas.FieldByName('Tot_Geral').AsString := Label25.Caption;
TabCadVendas.FieldByName('Vlr_Pago').AsString := RealEdit1.Text;
TabCadVendas.FieldByName('Troco').AsString := Label8.Caption;
{Autorização da Venda} {Funcionário do Orçamento/Funcionário da Venda}
TabCadVendas.FieldByName('Vendedor_Orca').AsString := TabCadVendasAux.FieldByName('Func_Vendedor').AsString;
TabCadVendas.FieldByName('Vendedor').AsString := UpperCase(CV_VendedorExato.Text);
{Tipos de Pagtos}
TabCadVendas.FieldByName('Tipo_Pagto').AsString := UpperCase(CV_TipoPagto.Text);
TabCadVendas.FieldByName('Vlr_Dinheiro').AsString := Pagto_Din;
TabCadVendas.FieldByName('Vlr_APagar').AsString := Pagto_APagar;
TabCadVendas.FieldByName('Vlr_CartaoCred').AsString := Pagto_CartaoCred;
TabCadVendas.FieldByName('Vlr_CartaoDeb').AsString := Pagto_CartaoDeb;
TabCadVendas.FieldByName('Vlr_Cheque').AsString := Pagto_Cheq;
TabCadVendas.FieldByName('Vlr_ChequePre').AsString := Pagto_CheqPre;
TabCadVendas.FieldByName('Vlr_Financeira').AsString := Pagto_Finan;
{Valores das Vendas de Cada Vendedor}
TabCadVendas.FieldByName('Vendas_Vivi').AsString := VlrVenda_Vivi;
TabCadVendas.FieldByName('Vendas_Gabi').AsString := VlrVenda_Gabi;
TabCadVendas.FieldByName('Vendas_Regiane').AsString := VlrVenda_Regiane;
TabCadVendas.FieldByName('Vendas_Angela').AsString := VlrVenda_Angela;
TabCadVendas.FieldByName('Vendas_Claudio').AsString := VlrVenda_Claudio;
{ TabCadVendas.FieldByName('Desc_ParcVenda').AsString := UpperCase(CV_Desc.Text);}
{ TabCadVendas.FieldByName('Vlr_Desc').AsString := UpperCase(CV_ValorDesc.Text);}
{ TabCadVendas.FieldByName('Qtd_ParcVenda').AsInteger := StrToInt(CV_NrParc.Text);}
{ TabCadVendas.FieldByName('Vlr_ParcVenda').AsString := UpperCase(CV_ValorParcelado.Text);}
{ TabCadVendas.FieldByName('Juros_Parc').AsString := UpperCase(CV_Juros.Text);
TabCadVendas.FieldByName('Total_JurosParc').AsString := UpperCase(CV_TotalJuros.Text);}
{Nº do Cartão}
{ TabCadVendas.FieldByName('Nr_AutentCartao').AsString := UpperCase(CV_NrAutentCartao.Text);}
{Gerente Autorizado pela Venda de Inadimplentes}
{ TabCadVendas.FieldByName('Gerente_Autorizado').AsString := UpperCase(CV_Gerente.Text);}
{Tipo de Venda - Se é Venda Direta (Venda) ou Se é Venda (Orçamento)}
TabCadVendas.FieldByName('Tipo_Venda').AsString := 'O';
Try
TabCadVendas.Post;
Except
ShowMessage('Atenção !!!... Código nº 02 - Cad. Vendas =>> Favor Entrar em Contato com a Marques e Ferreira !');
End;
Try
TabCadVendasAux.Next;
Except
ShowMessage('Atenção !!!... Código nº 05 - Favor Entrar em Contato com a Marques e Ferreira !');
End;
End;
TabCadVendasAux.First;
While not TabCadVendasAux.Eof Do
Begin
{ TabCadOrca.Filtered := False;
TabCadOrca.Filter := 'Nr_Orcamento ='+QuotedStr(TabCadVendasAux['Nr_Orcamento']);
TabCadOrca.Filtered := True;
Try
TabCadOrca.Delete;
Except
ShowMessage('Atenção !!!... Código nº 03 - Cad. Orçamento =>> Favor Entrar em Contato com a Marques e Ferreira !');
End;}
Try
TabCadVendasAux.Delete;
Except
ShowMessage('Atenção !!!... Código nº 03 - Cad. VendasAux =>> Entrar em Contato com a Marques e Ferreira !');
End;
End;
// Clear;
Label25.Caption:='0,00';
Label8.Caption:='0,00';
RealEdit1.Text:='0,00';
RealEdit2.Text:='0,00';
// BitBtn1.Enabled:=False;
BitBtn3.Enabled:=False;
BitBtn4.Enabled:=False;
CadVendas.BitBtn7.Visible:=False;
BitBtn7.Visible:=False;
BitBtn3.Visible:=True;
CV_CodFabrBarras.SetFocus;
TabCadEstoq.Filtered:=False;
TabCadOrca.Filtered:=False;
CheckBox1.Checked:=False;
CheckBox2.Checked:=False;
CheckBox3.Checked:=False;
CheckBox4.Checked:=False;
GroupBox2.Visible:=False;
GroupBox3.Visible:=False;
BitBtn11.Visible:=False;
End;
End;
//End;
end;
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
