Clarion - hola me prodrian explicar este codigo

   
Vista:

hola me prodrian explicar este codigo

Publicado por Carlos Alberto (3 intervenciones) el 04/03/2009 01:10:21
! Generar cotización nueva a partir de la seleccionada

LOC:IdCotizacion = COTcot:IdCotizacion
LOC:Fecha = Today()
LOC:IdCliente = COTcot:IdPortador
LOC:IdContacto = 0
LOC:IdCotizador = COTcot:IdCotizador
LOC:Descripcion = COTcot:Descripcion
LOC:Status = COTcot:Status
LOC:IVA = COTcot:IVA
LOC:PlazoEntrega = COTcot:PlazoEntrega
LOC:Condiciones = COTcot:Condiciones
LOC:Incluye = COTcot:Incluye
LOC:NoIncluye = COTcot:NoIncluye
LOC:Vigencia = LOC:Fecha + 30
LOC:IdEncabezado = COTcot:IdEncabezado
LOC:IdPiePagina = COTcot:IdPiePagina
LOC:TotalFormato = COTcot:TotalFormato

Access:COT_Cotizaciones.PrimeAutoInc
COTcot:Fecha_DATE = LOC:Fecha
COTcot:IdMes = Month( LOC:Fecha )
COTcot:Ejercicio = Year ( LOC:Fecha )
COTcot:Dia = Day ( LOC:Fecha )
COTcot:IdPortador = LOC:IdCliente
COTcot:IdContacto = LOC:IdContacto
COTcot:IdCotizador = LOC:IdCotizador
COTcot:Descripcion = LOC:Descripcion
COTcot:Status = LOC:Status
COTcot:IVA = LOC:IVA
COTcot:PlazoEntrega = LOC:PlazoEntrega
COTcot:Condiciones = LOC:Condiciones
COTcot:Incluye = LOC:Incluye
COTcot:NoIncluye = LOC:NoIncluye
COTcot:Vigencia = LOC:Vigencia
COTcot:IdEncabezado = LOC:IdEncabezado
COTcot:IdPiePagina = LOC:IdPiePagina
COTcot:TotalFormato = LOC:TotalFormato

! Generar folio

LOC:Prefijo = 'C-' & Format( Year( LOC:Fecha ) - 2000 , @n02 ) &
Format( Month( LOC:Fecha ) , @n02 ) & Format( Day( LOC:Fecha ) , @n02 ) &
'-'
LOC:Consecutivo = 1

Loop
LOC:Folio = LOC:Prefijo & Format( LOC:Consecutivo , @n03 )
COTcon:Folio = LOC:Folio
Get( COT_Consecutivo , COTcon:PkFolio )
If ErrorCode() Then Break.
LOC:Consecutivo += 1
End

COTcot:Folio = LOC:Folio

Access:COT_Cotizaciones.Insert()

LOC:IdCotizacionNueva = COTcot:IdCotizacion

COTdea:IdCotizacion = LOC:IdCotizacion
Set( COTdea:FkIdCotizacion , COTdea:FkIdCotizacion )

Loop
Next( COT_DetalleCotizacionesAlias )
If ErrorCode() Then Break.
If COTdea:IdCotizacion <> LOC:IdCotizacion Then Break.
LOC:Descripcion2 = COTdea:Descripcion
LOC:Cantidad = COTdea:Cantidad
LOC:Precio = COTdea:Precio
LOC:Importe = COTdea:Importe
LOC:CantidadFormato = COTdea:CantidadFormato
LOC:PrecioFormato = COTdea:PrecioFormato
LOC:ImporteFormato = COTdea:ImporteFormato
Access:COT_DetalleCotizaciones.PrimeAutoInc
COTdet:IdCotizacion = LOC:IdCotizacionNueva
COTdet:Descripcion = LOC:Descripcion2
COTdet:Cantidad = LOC:Cantidad
COTdet:Precio = LOC:Precio
COTdet:Importe = LOC:Importe
COTdet:CantidadFormato = LOC:CantidadFormato
COTdet:PrecioFormato = LOC:PrecioFormato
COTdet:ImporteFormato = LOC:ImporteFormato
Access:COT_DetalleCotizaciones.Insert()
End

Message( 'Se generó automáticamente la cotización No.' & LOC:Folio ,
'Advertencia' )

Self.Request = RequestCompleted
Post( Event:CloseWindow )

ahora otra cosa quisiera usar este mismo embebed usarlo en otro window para
guardar los datos en una tabla diferente en este caso se guardan en la tabla
COTcot y COTdet
como hago para q esos datos q tengo en COTcot guardarlos en otra tabla
llamada PEDPed y PEDDet
estas tablas tienen la misma estructura bueno tienen algunos campos de mas
y quiero editar solo algunos campos de las primeras tablas (COTcot y
COTdet) y guardarlo en en las segundas (PEDPed y PEDDet ) en el codigo de
arriba se hace notar una tabla COTdea que es un Alias de COTdet espero sirva
de algo mencionarlo
bueno los cambios q yo creo necesarios para la realizacion de mi objetivo
son los siguientes ojala me corrija ya q no se usar clarion la verdad los
cambios los hice solo por
instinto por asi decirlo

! Generar cotización nueva a partir de la seleccionada


!segun yo en esta parte es donde decimos q la variable local ba a contener
lo q hay en COTcot eso es a mi entender ojala este en lo correcto???????

LOC:IdCotizacion = COTcot:IdCotizacion
LOC:Fecha = Today()
LOC:IdCliente = COTcot:IdPortador
LOC:IdContacto = 0
LOC:IdContacto2 = 0
LOC:IdCotizador = COTcot:IdCotizador
LOC:IdCotizador2 = COTcot2:IdCotizador
LOC:Descripcion = COTcot:Descripcion
LOC:Status = COTcot:Status
LOC:IVA = COTcot:IVA
LOC:PlazoEntrega = COTcot:PlazoEntrega
LOC:Condiciones = COTcot:Condiciones
LOC:Incluye = COTcot:Incluye
LOC:NoIncluye = COTcot:NoIncluye
LOC:Vigencia = LOC:Fecha + 30
LOC:IdEncabezado = COTcot:IdEncabezado
LOC:IdPiePagina = COTcot:IdPiePagina
LOC:TotalFormato = COTcot:TotalFormato


accedo en la tabla pedido que es mi segunda tabla donde quiero q guarde lo
que contiene las variables locales?????????????
se supone que ahi le digo q lo q contengan las variables locales ban a ser
lo q se ba a guardar en los campos especificados????

Access:PED_Pedidos.PrimeAutoInc
PEDPed:Fecha_DATE = LOC:Fecha
PEDPed:IdMes = Month( LOC:Fecha )
PEDPed:Ejercicio = Year ( LOC:Fecha )
PEDPed:Dia = Day ( LOC:Fecha )
PEDPed:IdPortador = LOC:IdCliente
PEDPed:IdContacto = LOC:IdContacto
PEDPed:IdContacto2 = LOC:IdContacto
PEDPed:IdCotizador = LOC:IdCotizador
PEDPed:IdCotizador2 = LOC:IdCotizador
PEDPed:Descripcion = LOC:Descripcion
PEDPed:Status = LOC:Status
PEDPed:IVA = LOC:IVA
PEDPed:PlazoEntrega = LOC:PlazoEntrega
PEDPed:Condiciones = LOC:Condiciones
PEDPed:Incluye = LOC:Incluye
PEDPed:NoIncluye = LOC:NoIncluye
PEDPed:Vigencia = LOC:Vigencia
PEDPed:IdEncabezado = LOC:IdEncabezado
PEDPed:IdPiePagina = LOC:IdPiePagina
PEDPed:TotalFormato = LOC:TotalFormato


en la variable local se va a guardar un dato con el formato ahi
especificado????????????????

! Generar folio

LOC:Prefijo = 'P-' & Format( Year( LOC:Fecha ) - 2000 , @n02 ) &
Format( Month( LOC:Fecha ) , @n02 ) & Format( Day( LOC:Fecha ) , @n02 ) &
'-'
LOC:Consecutivo = 1


a qui si de plano no se que
pasa --------------------------------------------------

Loop
LOC:Folio = LOC:Prefijo & Format( LOC:Consecutivo , @n03 )
PEDCon:Folio = LOC:Folio
Get( PED_Consecutivo , PEDCon:PkFolio )
If ErrorCode() Then Break.
LOC:Consecutivo += 1
End

PEDPed:Folio = LOC:Folio

Access:PED_Pedidos.Insert() --------------------------> aqui dice que
entre en la tabla pedidos y que guarde los registros????

LOC:IdPedidoNuevo = COTcot:IdCotizacion

COTdea:IdCotizacion = LOC:IdCotizacion
Set( COTdea:FkIdCotizacion , COTdea:FkIdCotizacion )

Loop
Next( COT_DetalleCotizacionesAlias )
If ErrorCode() Then Break.
If COTdea:IdCotizacion <> LOC:IdCotizacion Then Break.
LOC:Descripcion2 = COTdea:Descripcion
LOC:Cantidad = COTdea:Cantidad
LOC:Precio = COTdea:Precio
LOC:Importe = COTdea:Importe
LOC:CantidadFormato = COTdea:CantidadFormato
LOC:PrecioFormato = COTdea:PrecioFormato
LOC:ImporteFormato = COTdea:ImporteFormato
Access:COT_DetalleCotizaciones.PrimeAutoInc
COTdet:IdCotizacion = LOC:IdCotizacionNueva
COTdet:Descripcion = LOC:Descripcion2
COTdet:Cantidad = LOC:Cantidad
COTdet:Precio = LOC:Precio
COTdet:Importe = LOC:Importe
COTdet:CantidadFormato = LOC:CantidadFormato
COTdet:PrecioFormato = LOC:PrecioFormato
COTdet:ImporteFormato = LOC:ImporteFormato
Access:PED_DetallePedidos.Insert() --------------------------------------------->
PED_DetallePedidos esta es la tabla en que quiero guardar lo q hay en
COT_DetalleCotizaciones
End

Message( 'Se generó automáticamente la cotización No.' & LOC:Folio ,
'Advertencia' )

Self.Request = RequestCompleted
Post( Event:CloseWindow )




--------------------------------------------------------------------------------
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Clarion
- Código fuente de Clarion
- Cursos de Clarion
información
Códigos de Clarion
- Llamar al form para insertar desde el menu

RE:hola me prodrian explicar este codigo

Publicado por EDC (82 intervenciones) el 09/03/2009 18:14:56
.....genera una cotización..;))))
Perdón... era joda... pero te diría que colocaras los comandos o líneas que no sabés para explicarlas, sinó vamos a perder el findesemana estudiando el codigo!. gs.....;)))
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar