PROJETO EXEMPLO

[Gustavo]

Segue abaixo a programação para converter em venda.

//******************* GERA VENDA PELO OR??AMENTO *********//
TabGlobal.DVENDAS.Inclui(Nil);
TabGlobal.DVENDAS.ECF_NUMERO.Conteudo :=
RetornaAutoIncremento(TabGlobal.DVENDAS, 'ECF_NUMERO', '', 0);
TabGlobal.DVENDAS.CLI_CODIGO.Conteudo := TabGlobal.DOrdem_Servico.CLI_CODIGO.Conteudo;
TabGlobal.DVENDAS.VEN_CODIGO.Conteudo := TabGlobal.DOrdem_Servico.VEN_CODIGO.Conteudo;
TabGlobal.DVENDAS.ECF_DESCONTO.Conteudo := 0; //TabGlobal.DORCAMENT.ECF_DESCONTO.Conteudo;
TabGlobal.DVENDAS.ECF_DATA.Conteudo := DataAtual;
//Por ser campo calculado e Itens não pode ter valor nulo
TabGlobal.DVENDAS.ECF_TOTAL.Conteudo :=0;
TabGlobal.DVENDAS.ECF_TOTAL_ITENS.conteudo := 0.00;
TabGlobal.DVENDAS.ECF_CANCELADA.Conteudo := 'N';
TabGlobal.DVENDAS.ECF_OBS_1.conteudo:=
TabGlobal.DOrdem_Servico.OS_OBS_1.conteudo;
TabGlobal.DVENDAS.ECF_OBS_2.conteudo:=
TabGlobal.DOrdem_Servico.OS_OBS_2.conteudo;
TABGLOBAL.DVENDAS.ECF_OBS_1.CONTEUDO:='OS Nº '+TABGLOBAL.DOrdem_Servico.OS_NUMERO.ValorString;
TabGlobal.DVENDAS.Salva;
TabGlobal.DITOS.AtribuiFiltroMestre(true);
//Cria os Itens
TabGlobal.DITOS.First;
While not(TabGlobal.DITOS.EOF) do begin
TabGlobal.DITVENDA.Inclui(Nil);
TabGlobal.Ditvenda.IEC_SEQUENCIA.Conteudo:=
RetornaAutoIncremento(TabGlobal.DITVENDA,
'IEC_SEQUENCIA','ECF_NUMERO='+#39+
fractostr(TabGlobal.DVENDAS.ECF_NUMERO.Conteudo)+
#39, 1);
//***
TabGlobal.DITVENDA.PRO_CODIGO.Conteudo :=TabGlobal.DITOS.PRO_CODIGO.Conteudo;
TabGlobal.DITVENDA.PRO_QUANTIDADE.Conteudo :=TabGlobal.DITOS.PRO_QUANTIDADE.Conteudo;
TabGlobal.DITVENDA.PRO_VENDA.Conteudo :=TabGlobal.DITOS.PRO_VENDA.Conteudo;
//Não precisa enviar dados para campos calculados
TabGlobal.DITVENDA.Salva;
TabGlobal.DITOS.Next;
end;
lbl_ultimavenda.Caption:=' VENDA GERADA [ '+TabGlobal.DVENDAS.ECF_NUMERO.ValorString+' ]';

TabGlobal.DOrdem_Servico.Edit;
TabGlobal.DOrdem_Servico.OS_OBS_2.conteudo:=alltrim(TabGlobal.DOrdem_Servico.OS_OBS_2.conteudo)+' Venda Nº '+
TabGlobal.DVENDAS.ECF_NUMERO.ValorString;
TabGlobal.DOrdem_Servico.post;
end;

[Dimmy Angelo]

O aplicativo pra download, somente roda pra Xmaker 6?

[Gustavo]

Sim, pois ele foi compilado pelo Xmaker 6.

[airamcarlos]

Segue tela de check-in do sistema de controle de pousadas.
(em desenvolvimento)

[Benedito]

Teria como disponibilazar os fontes de sistema Controle de Locações

[Gustavo]

Olá,

Infelizmente esses fontes não podem ser disponibilizados, agradecemos a compreensão.

Conte sempre conosco.